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This manual provides the programming information required 
to use the Multiline/Multipoint Feature (MLMP) with 
System/3 Model 10, Model 12, or Model 15 binary synchro- 
nous communications programs. 


On the Model 10 and Model 12, MLMP is a feature of the 
System Control Programming (5702-SC1, Features 6030 
and 6031). On the Model 15, MLMP is included in the base 
System Control Programming (5704-SC1 or 5704-SC2). 


Hereafter, the terms “MLMP” and “‘System/3” should be 
understood as applying to the System/3 Model 10 Disk Sys- 
tem, the Model 12, and the Model 15, unless qualified by 
“Model 10 and Model 12 only” or “Model 15 only.” 


This reference manual is intended for applications program- 
mers who are familiar with: 


@ Basic telecommunications concepts and practices 
@ IBM System/3 Basic Assembler tanguage 


® IBM System/3 Model 10 Disk System, Model 12, or 
Model 15 


The manual describes MLMP and the functions of MLMP, 


the System/3 MLMP macro instructions, and the MLMP diag- 


nostics and diagnostic aids. The book also lists MLMP sys- 
tem requirements and considerations. Appendixes contain a 
list of MLMP considerations unique to certain terminals, ex- 
amples of coded MLMP macro instructions and a sample pro- 
gram, data area formats, BSC line control characters and 
codes, and a macro instruction summary. 


As noted in the text, many of the cross references in this 
manual address index entries. 
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SYSTEM/3 MODEL 8 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. However, the Integrated Communications 
Adapter (ICA) is only available on the Model 8. If you 
have either the ICA or local display adapter, it is always 
designated as BSCA line 2. Therefore, you must specify 
line 2 whenever the ICA or local display adapter is used, or 
enter the BSCA OCL statement (// BSCA LINE-2) at 
execution time. It should be noted that not all devices 
and features which are available on the Model 10 are avail- 
able on the Model 8. Therefore, Model 8 users should be 
familiar with the contents of /BM System/3 Model 8 
Introduction, GC21-5114. 


Prerequisite Publications 


® General Information: Binary Synchronous Communica- 
tions, GA27-3004 


@ /BM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236 
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Chapter 1. Multiline/Multipoint Binary Synchronous Communications 


Multiline/Multipoint (MLMP) is a binary synchronous 
communications (BSC) feature of System/3. MLMP pro- 
vides the assembler programmer access to the BSC 1/O 


routines that support the Binary Synchronous Communica- 


tions Adapter (BSCA) as an I/O device. For a description 
of the BSCA, see the appropriate components reference 
manual for your system listed in the Preface. 


MLMP enables the assembler programmer to transmit and 
receive binary synchronous data over two telecommunica- 
tions lines simultaneously (each line requires a BSCA). 

The two lines can be used in the same program or can be 
used independently in separate program levels (on Model 10 
or Model 12 that has the dual programming feature in- 
stalled) or in the program partitions (on Model 15). The 
lines can be nonswitched or switched. Figure 1 gives exam- 
ples of the line configurations possible with MLMP. 
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Figure 1 (Part 1 of 2). Examples of MLMP BSC Networks 
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1The Integrated Communications Adapter (ICA) must be addressed as BSCA 
line 2. The manual ICA switch can have only one interface active at any 
one time. 


2See Figure 1 (Part 1 of 2) for examples of BSCA line configurations. 


Figure 1 (Part 2 of 2). Examples of MLMP BSC Networks 


The MLMP user specifies the functions of MLMP I/O rou- 
tines by using System/3 assembler macro instructions (see 
Chapter 2). The IBM System/3 Macros Feature expands 
these macro instructions into linkage to MLMP routines. 


Linkage to the MLMP routines is assembled as part of the 
user's program. The IBM System/3 Overlay Linkage Editor 
is then used to incorporate the MLMP routines in the 
user's object program. 
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Figure 2 shows the relation of MLMP to the macro proc- 
essor, the overlay linkage editor, and user programs. 


Figure 3 shows the relationship of a user MLMP program to 
MLMP I/O routines, BSC DTFs, BSC IOBs and buffers, 
and the BSCA. 


The user assembler program includes 
macro instructions for MLMP I/O routines. 


Macro instructions are expanded into 
linkage to MLMP routines. 


The user program, which now includes 
linkage to the MLMP routines, is 
assembled. 


CD 


MLMP 
Routines 





MLMP routines are incorporated into 
the user’s object program. 


User MLMP 
Object 
Program 


Terminals 





Figure 2. Generation of a User MLMP Object Program 
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Figure 3. Functional Control and Data Flow of MLMP 


Telecommunications Lines Supported 


Following are the terminals and line connections supported 
by MLMP. For considerations unique to using a given ter- 
minal with MLMP, see Appendix A. 


Nonswitched Point-to-Point 


MLMP supports point-to-point nonswitched connections 
with central processing units programmed according to the 
conventions described in General Information: Binary 
Synchronous Communications, GA27-3004. MLMP also 
supports point-to-point nonswitched connections with the: 


@ IBM System/7 Teleprocessing Multiplexor (TPMM) as 
described in /BM System/7 Teleprocessing Multiplexor 
“TPMM” Programming Guide and Reference Manual 
Supporting RPQ D08011, SC34-1506 


@ {BM 2770 Data Communication System as described in 
System Components: 1BM 2770 Data Communication 
System, GA27-3013 


@ iBM 2780 Data Transmission Terminal as described in 
IBM 2780 Data Transmission Terminal: Component 
Description, GA27-3005 


Multipoint 


MLMP supports System/3 as a control station and as 
a multidropped terminal. As a control station, 
System/3 can exchange binary synchronous data with: 


® IBM System/3 


@ {BM System/7 as described in /BM System/7 Binary 
Synchronous Communications Module Programming 
Guide and Reference Manual, SC34-1510 


@ IBM System/7 Teleprocessing Multiplexor (TPMM) as 
described in /BM System/7 Teleprocessing Multiplexor 
“TPMM” Programming Guide and Reference Manual 
Supporting RPQ D08011, SC34-1506 


@ (BM 2770 Data Communication System as described in 
System Components: 1BM 2770 Data Communication 
System, GA27-3013 


@ {BM 2780 Data Transmission Terminal as described in 
/BM 2780 Data Transmission Terminal: Component 
Description, GA27-3005 


1BM 2972/2980 Banking Terminal System (supported 
in the United States only) as described in Component 
Description: 1BM 2972 Models 8 and 11 General Bank- 
ing Terminal Systems, GL27-3020 


IBM 3270 Information Display System as described in 
1BM 3270 Information Display System Component 
Description, GA27-2749 


IBM 3735 Programmable Terminal as described in /BM 
3735 Programmer’s Guide, GC30-3001 


IBM 3600 Finance Communication System (Model 15 
only) as described in /BM 3600 Finance Communica- 
tion System Programmer’s Guide and Component Des- 
cription, GC27-0004 


When System/3 is a control station, MLMP 
does not support intermixing of terminals on one line. 


Note: For information on how to generate IBM 3735 form 
descriptor programs (FDPs) on System/3, see /BM System/3 
Model 10 Disk System 3735 Application Package Coding 
Manual, GC21-5096. A conversion routine (FDP/Convert) 

is provided with MLMP to convert FDPs generated on OS 

or DOS to a format suitable for transmission from Model 

10 or Model 12 to a 3735. For a description of FDP/Convert, 
see index entry FDP/Convert. 


Switched Point-to-Point 


MLMP supports point-to-point switched connections with 
the following: 


Central processing units programmed according to the 
conventions described in General Information: Binary 
Synchronous Communications, GA27-3004 


IBM System/7 Teleprocessing Multiplexor (TPMM) as 
described in /BM System/7 Teleprocessing Multiplexor 
“TPMM” Programming Guide and Reference Manual 
Supporting RPQ D08011, SC34-1506 


1BM 2770 Data Communication System as described in 
System Components: 1BM 2770 Data Communication 
System, GA27-3013 


IBM 2780 Data Transmission Terminal as described in 


/BM 2780 Data Transmission Terminal: Component 
Description, GA27-3005 
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@ IBM 3275 Display Station as described in /BM 3270 
Information Display System Component Description, 
GA27-2749 


@ IBM 3735 Programmable Terminals as described in /BM 
3735 Programmer's Guide, GC30-3001 


@ IBM System/7 as described in /BM System/7 Systems 
Summary, GA34-0002 


For switched connections, MLMP supports autocall (United 
States only), manual call, autoanswer, manual answer, and 
the exchange of station identification characters. 


Note: For information on how to generate IBM 3735 form 
descriptor programs (FDPs) on System/3, see /BM System/3 
Model 10 Disk System 3735 Support Program Reference 
Manual, GC21-5096. A conversion routine (F DP/Convert) 
is provided with MLMP to convert FDPs generated on OS 
or DOS to a format suitable for transmission from Model 

10 to a 3735. For a description of FDP/Convert, see index 
entry FDP/Convert. 


Functions 


The following program functions are available to the MLMP 
user: 


1. Receive only (receive input data from a remote 
terminal). 
2. Receive with transmittal of conversational reply (re- 


ceive input data from a remote terminal and, when 
required, transmit data as an acknowledgement). 


3. Transmit only (transmit data to a remote terminal). 


4. Transmit with reception of conversational reply 
(transmit data to a remote terminal and, when re- 
quired, receive data as an acknowledgement). 


5. Transmit and receive—no conversational reply. Four 
modes of operation are possible: 


a. Transmit a file, then receive another file. 

b. Receive a file, then transmit another file. 

c. Transmit records of a file interspersed with re- 
ceiving records of another file (receive RV!). 

d. Receive records of a file interspersed with trans- 
mitting records of another file (transmit RVI). 


Depending on the terminal used and whether or not data is 
exchanged in conversational mode, records transmitted 

and received can be fixed length, variable length, or span- 
ned (one record can occupy space in two contiguous blocks). 
Data can be exchanged in EBCDIC (Extended Binary Coded 
Decimal Interchange Code) or in ASCII (American Nation- 
al Standard Code for Information Interchange), depending 
on the BSCA used. Data translation is supported by trans- 
late tables generated with macro instructions. EBCDIC 
transparency and ITB (Intermediate Block Checking) are 
supported by MLMP. 


MLMP does not transmit leading graphics. MLMP can re- 
ceive leading graphics, but does not pass them to the user. 


During program execution, MLMP automatically does the 
following: 


@ Blocks and deblocks data as required. 


© Moves user data from the user’s logical buffer to the 
telecommunications !/O buffers when sending data 
(PUT requests). 


@ Moves user data from the telecommunications I/O buf- 
fers to the user's logical buffer when receiving data 
(GET requests). 


@ Inserts and removes data-link control characters as 
necessary. 


MLMP provides error recovery, error recording arid, at 
user’s request, online test (OLT). A trace module and a 
dump routine are also provided with MLMP. 


Multiple Line Terminal Adapter 


The BSCA and the Multiple Line Terminal Adapter (MLTA) 
can be used concurrently on the disk system. For infor- 
mation regarding MLTA, see /BM System/3 Multiple Line 
Terminal Adapter RPQ Program Reference and Compon- 
ent Description Manual, GC21-7560. 


You inform MLMP of the functions your binary synchron- 
ous communications program requires by using System/3 
macro instructions. 


Description 


A System/3 macro instruction causes a specified sequence 
of assembler source instructions to be generated. The for- 
mat of a System/3 macro instruction is: 


symbol macro no operands 

or blank name or one or 
more 
operands 
separated by 
commas 


Name 





If you specify a name, it is assigned to the generated se- 
quence of assembler instructions. The name becomes the 
symbolic address of the first byte of code generated by the 
macro instruction and it can be used to reference the code 
— that is, to modify the code or to branch to the code. 


A name: 


@ Must begin with an alphabetic character in position 1 
of the Assembler Coding Form 


@ Can be from one to six alphameric characters in length 


@ Must contain no special characters or blanks 


Note: System/3 macro instructions generate labels begin- 
ning with the dollar sign ($). If you also define labels 
beginning with $ when you use System/3 macro instruc- 
tions, duplicate labels may result. 


Operation 


The operation entry is the mnemonic operation code of the 
macro instruction. Each operation entry must begin in 
position 8 of the Assembler Coding Form. 


Chapter 2. System/3 Macro Instructions 


Operands 


Operands qualify the operation by specifying functions to 
be performed and data to be modified. Each operand con- 
sists of a keyword and a parameter joined by a dash. Key- 
words and parameters are predefined symbols available for 
use with individual macro instructions. You select key- 
words and parameters according to the rules that apply to 
the macro instruction you are writing. 


@ The first operand must begin in position 14 of the 
Assembler Coding Form. 


@ Operands must be separated by commas. 


@ Blanks are not permitted between operands coded on the 
same line. 


@ Blanks are not permitted between keywords and 
parameters. 


@ Operands cannot be specified beyond position 71. 


@ Operands can be written in any order. 


Continuation Lines 


The number of operands involved in some macro instructions 
may require more than one line of coding. If continuation 

is required, column 72 must contain a character and the last 
operand must be followed by acomma. An operand cannot 
be divided and continued on the next line. The operands 

of the continued field must begin in column 14. For an 
example of continuation coding, see Figure 4. 


Comments 


Comments can be placed after the last operand in a line if 
the comment is separated from the operand or comma by 

a blank. If a macro instruction has no operands, comments 
can be placed in the operand field if position 14 is left 
blank (Figure 4). 
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Figure 4. Sample of Continued Macro Instructions and Comments 


Conventions UNDERSCORE __ indicates the default if a parameter is 
not specified. 

Certain symbols are used in this manual to abbreviate the 

descriptions of macro instructions. UPPER CASE LETTERS indicate words or abbreviations 
that must be entered as shown. 


1 8 14 LOWER CASE LETTERS indicate information you must 


[Inamel [$0 [KE YWORD-AVBIC_ supply. 


Each MLMP macro instruction is described in detail in 
Chapter 3. Ail MLMP macro instructions are summarized 
in a chart in Appendix E. The chart also gives the approxi- 
mate length of code generated by each macro instruction. 


BRACKETS [ ] indicate an optional entry. 


SLASHES / separate entries when a choice exists. 


Every MLMP program you write must accomplish three 
major functions: 


1. Prepare BSC files for reception and/or transmission 
of data. 
2. Initiate the transfer of data: receive and/or transmit. 


3. Terminate the transfer of data. 


Before programming these functions, however, note that 
one EXTRN must be defined in every MLMP program 
($$BSMS). Other required EXTRNs are generated by the 
MLMP macro instructions when MLMP programs are 
assembled. 


PREPARING FOR DATA TRANSFER 


Preparing for data transfer always includes the following 
three steps: 


1. Generate labels and equates for use by the various 
macro instructions and generate field displacements 
and labels for the BSC DTFs. Common labels and 
equates are generated by the $COMN macro 
instruction when your MLMP program is 
assembled. BSC DTF field displacements and labels 
are generated by the $DTOB macro instruction when 
your MLMP program is assembled. 


2. Prepare BSC data files. Each BSC file must be: 


a. Defined ($DTFB macro instruction) 
b. Allocated (SALOC macro instruction) 
c. Opened (S$OPEN macro instruction) 


3. Create a checklist to check for |/O completion. 
Entries in the checklist are created by the $CKL 
macro instruction. 


Chapter 3. MLMP Programming 


If your station is a control station, you must create a 
polling/addressing list. Entries in a polling/addressing list 
are created by the $POLB macro instruction. Entries in 

a polling list can be activated or deactivated by using the 
$BCPL macro instruction (stations identified in active 
entries in a polling list are polled, stations identified in in- 
active entries are not polled). The $CHGB macro instruc- 
tion can be used to generate the parameter list required by 
$BCPL. 


Control stations must also provide space for logging termi- 
nal statistics. The $LOGB macro instruction can be used 
to allocate space for the Terminal Statistics Logging Area. 


if you are using a switched answer line, you can create a 

list containing the station identification sequences (station 
{Ds) your station will accept from a remote terminal. 
Entries in the switched !D list are created by the $SWIB 
macro instruction. The $BCSW macro instruction can be 
used to activate or deactivate entries in the list. (If an entry 
is inactive, your station will not accept the station ID given 
in that entry.) The $CHGB macro instruction can be used 
to generate the parameter list required by $BCSW. 


If data in your BSC files requires translation, either before 
it is transmitted or after it is received, you must provide 
for data translation by constructing translate tables 
($TRTB macro instruction for EBCDIC/ASCII tables) and 
generating a translate parameter list (STRL macro instruc- 
tion). When you want to translate data, generate the inter- 
face to the 1BM-provided translate routine (STRAN macro 
instruction). 


MLMP Programming 9 


Note: \f you are transmitting translated data or receiving 

data that must be translated, be sure you have given the 

following information in the correct data code (EBCDIC or 

ASCH): 

1. Polling and/or addressing characters if you are a control 
or tributary station. 

2. Station identification sequences if you are on a switched 
line. 

3. Online test parameter lists (generated by the $RFTL 
macro instruction) and online test messages if you intend 
to request online tests (see index entry online test). 


Generate Common Equates ($COMN) 


The $COMN macro instruction generates labels and equates 
used by System/3 macro instructions. This macro instruc- 
tion must be issued once in every assembler program con- 
taining System/3 macro instructions. 


$COMN Macro Instruction Format 


Leow 


Generate BSC DTF Displacements and Labels ($DTOB) 


BSC DTF field displacements and labels must be defined 
once in every MLMP program. The $DTOB macro instruc- 
tion generates field displacements and associated labels 

for BSC DTFs. These displacements and labels, as well as 
BSC DTF byte and bit definitions and a definition of MLMP 
completion codes (see index entry completion code), are 
included in your assembly listing. 


The generated BSC DTF labels are used by the code your 


MLMP macro instructions generate and you can use the 
labels to reference fields in the BSC DTFs. 
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See index entry BSC DTF for the labels generated by $DTOB. 


$DTOB Macro Instruction Format 


[| $0TOB 


Define the File for BSC ($DTFB) 


The $DTFB macro instruction generates a BSC DTF. More 
than one BSC file can be defined for each telecommunica- 
tions line. See Appendix C for the format of the BSC 
DTFs. See also index entry open BSC files (SOPEN). 


$DTFB Macro Instruction Format 





$DTFB RECL—decdig,BLKL—decdig, 
RCAD-—address,F TYP—RCV/TSM 
[,BUFST—address,BUF END—acldress] 
[, BUFNO—decdig] 

[,CODE—E/A) [,LINE—1/2] 
[,UP—binary/0}] [,CHN—name} 
LCONV—-Y/N] [,tTB-Y/N] 
L.TRANSP—Y/N] 
[,RVIADR—address,R VIMSK—hex] 
{,DLYCT—decdig] 
(,.TYPE—PP/MP/CS/AC/MC/AA/MA] 
[,TERMAD~—hex] [. AUTORS—Y/N]} 
[,LISTAD—address,ERRLOG—address) 
[.POLRES—Y/N} 

[,LIMIT—decdig] 
[,DIAL—address, DIALCT—decdig]} 
[,RCV!D—address,RCVCT—decdig/ 
SWLIST—Y/N]} 

[,SND!D—address, SNDCT—decdig] 
[.SPAN-Y/N] 

[,RECSEP—hex] [,ERRCT—decdig} 























name 


If a name is specified, it is assigned to the first byte of the 
generated BSC DTF. 


RECL—decdig 


Specifies, in decimal, the maximum record length for this 
file, excluding line control characters. Record length is 
limited by available storage and terminal characteristics 
such as those listed in Appendix A. See index entry S$DTFB 
considerations. 


BLKL-—decdig 


Specifies, in decimal, the maximum block length for this 
file, excluding line control characters. Block length must 
be equal to or greater than record length (RECL operand). 
See index entry $O07FB considerations. 


RCAD—address 


Specifies the symbolic address identifying the first byte of 
your logical buffer. The required size of the logical buffer 
depends upon the kind of operations requested for this file: 


@ If this is a receive file and OPC—N will be specified in 
GET requests for this file, the logical buffer must be 
large enough to contain one record for this file. 


@ If this is a receive file and OPC—BLK will be specified in 
GET requests for this file, the jogical buffer must be 
large enough to contain the largest block of data ex- 
pected, including line control characters. 


For a description of OPC—N and OPC—BLK, see index 
entry $GETB macro instruction. 


@ If this is a transmit file, the logical buffer must be large 
enough to contain one record for this file. 


Records are moved from the logical buffer to the BSC 
1/0 buffers on PUT requests ($PUTB macro instruction), 
and moved from the BSC I/O buffers to the logical 
buffer on GET requests ($GETB macro instruction). See 
index entry move made. 


FTYP—RCV/TSM 


Indicates whether the first operation for tnis file is receive 
(RCV) or transmit (TSM). If you define é@ receive file (RCV), 
the first 1/O request for the file must be a GET request 

(see index entry $GETB macro instruction); if you define 

a transmit file (TSM), the first 1/O request for the file must 
be a PUT request or a request for an online test (see index 
entries $PUTB macro instruction and online test). 


BUFST—address 


Specifies the symbolic address identifying the first byte 
of the area available to this file for |/O buffers and |OBs 
(input/output blocks). 


Note: Each BSC file requires a unique 1/O area. 


BUFEND—address 


Specifies the symbolic address identifying the last byte of 
the area available to this file for |/O buffers and l|OBs. For 
formulas necessary to calculate the length of MLMP 1/O 
areas, see index entry MLMP //O area. See also index 
entry online test if you intend to use the online test. 


BUFNO—decdig 


Specifies the number of !/O buffers and |OBs to be con- 
tained in the I/O area for this file, and specifies that the 
1/O area is to be allocated by this $DTFB macro instruc- 
tion. (See index entry MLMP 1/0 area.) 


Note: Either BUFST and BUFEND or BUFNO should be 


specified. Otherwise, the $DTFB macro instruction allo- 
cates enough I/O area to contain only one IOB and buffer. 
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CODE--E/A 


Specifies whether the character code of your data js 
EBCDIC (E) or ASCII (A). The character code you use is 
determined by the transmission code feature installed on 
your BSCA, 


LINE—1/2 


Specifies the BSCA this file uses; adapter 1 or adapter 2. 
The // BSCA operation control language {(OCL) statement 
can override this operand. For OCL information, see the 
appropriate system control programming reference manual 
listed in the Preface. 


UP--binary/O. 


Specifies the conditional opening of a DTF. If the bits 
specified, in binary, are on in the external indicator 
vetting given by the last SWITCH OCL statement, the 
DTF is opened. The default 0 specifies the unconditional 
opening of aDTF. For GCL information, see the approp- 
riate system contro! programming reference manual listed 
in the Preface. 


CHN—name 

Specifies the symbolic address of the next DTE in the 
chain. Chained DTFs are allocated, opened, or closed at 
the same time as the first DTF in the chain. An end-of- 
chain indicator, X‘FFFF’, is entered in the DTE if no chain 
operand is given. 


CONV-Y/N 


Specifies whether conversational repiies can be sent from or 
to this file: Y if yes, N if no. 


Note: Block length (BLKL operand) must equa! record 
length (RECL operand) for a conversational file. 


ITB—-Y/N 


Specifies whether intermediate block checking is requested: 
Y if yes, Nif no. Intermediate block checking is not per- 
mitted for a conversational file. 
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TRANSP—Y/N 


Specifies whether data for this file will be transmitted in 
transparent mode; Y if yes, Nif no. Transparency may be 
specified only if the transparency feature is installed on the 
BSCA used. If N is specified and transparent data is 
received, no error occurs and the $BCRAN bit is set in the 
SBDATT field of the BSC DTF. 


RV!IADR—address 


Specifies the symbolic address of a cne-by te field you pro- 
vide. The field is useci with the mask specified in the 
RVIMSK operand (following paragraph) to indicate when 
a reverse interrupt request (RVI) is received or is to be 
sent. See index entry reverse interrujt for examples of 
using reverse interrupts. RVIADR—address requires the 
RVIMSK operand. 


RVIMSK---hex 


Specifies two hexadecimal characters to represent the 
reverse interrupt (RVI) mask. The bits represented by the 
mask are set on by MLMP in the RVIADR field (preceding 
paragraph) if a reverse interrupt request (RVI) is received 
from a remote terminal. If a reverse interrupt request is 
to be sent to a remote terminal, you must set on the mask 
in the RVIADR field. See index entry reverse interrupt 
for examples of using reverse interrupts. RVIMSK—hex 
requires the RVIADR operand. 


DLYCT—decdig 


Specifies a decimal delay count. The delay count is the 
number of seconds after receiving or transmitting a block 
of data that MLMP will wait for you to receive or transmit 
another block of data for the same file. MLMP waits the 
specified number of seconds by using the WACK ENQ and 
TTD NAK line control sequences. 


Except when you have received or transmitted end of file, 
MLMP aborts transmission and posts the $BCLST com- 
pletion code if the delay count is exhausted between trans- 
missions. (See index entry completion code.) 


'f you do not specify a number, a 180-second delay count 
is assumed. If you do specify a delay count, consider the 
time that may be required for such things as device errors, 
halts, and readying I/O devices. 


TYPE-— 


This operand specifies the type of line connection to be 
established for this file. You must have the appropriate 
network attachment feature installed before specifying 

one of the following line types: 


Pp 


Specifies that this file will use a point-to-point non- 
switched line. PP is assumed if no line type is specified. 


MP 
Specifies that this fite will use a multipoint line, and this 
station is a tributary station. TYPE—MP requires the 
TERMAD operand. 

cs 
Specifies that this file will use a multipoint line, and this 
station is the control station. TYPE—CS requires the 
LISTAD and ERRLOG operands. 

AC 


Specifies that this file will use a switched line, autocall. 
TYPE-—AC requires the DIAL and DIALCT operands. 


MC 


Specifies that this file will use a switched line, manual 
call. 


AA 


Specifies that this file will use a switched line, auto 
answer. 


MA 


Specifies that this file will use a switched line, manual 
answer. 


TERMAD—her 


Specifies the hexadecimal representation of the two- 
character polling or addressing sequence used by this file. 
If this is a transmit file (FTYP—TSM), TERMAD specifies 
polling characters; if this is a receive file (FTYP—RCV), 
TERMAD specifies addressing characters. 


Each tributary station on a multipoint line must have 
unique polling and/or addressing characters. See index 
entry tributary System/3 polling and addressing characters 
for the polling and addressing characters available to identify 
System/3 tributary stations. See also index entry polfing/ 
addressing. 


The TERMAD operand is used only when TYPE—MP is 
specified. 


AUTORS—Y/N 


Specifies whether MLMP will automatically send a negative 
response to polling and addressing sequences received after 
data transfer for this file is complete: Y if yes, N if no. If 
AUTORS--Y is specified, MLMP will continue to respond 
negatively to polling and addressing sequences until another 
MLMP 1/0 request (SGETB, $PUTB, or $RFT) is issued for 
the line, or until a request to close the MLMP files ($CLOS) 
is issued. (See index entry macro instructions.) \f 
AUTORS-N is specified or if AUTORS is not specified at 
all for a tributary station, the tributary station will be on- 
line with the control station only when an MLMP 1/O re- 
quest (SGETB, $PUTB, or $RFT) has been accepted. 


AUTORS-Y enables a tributary station to remain online 
with the control station after initial data transfer, even 
though data transfer is not occurring. When a tributary 
remains online until all data transfer between it and the 
control station is complete, the contro! station spends no 
time waiting for the tributary to respond tc polling or 
addressing. 


AUTORS is used only when TYPE—MP is specified, and 
the AUTORS operand must be specified the same way in 
all $DTFB macro instructions written for the same BSC 

line. 
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LiSTAD—address 


Specifies the symbolic address identifying the first byte of 
the polling or addressing list used by this file. If this is a 
transmit file (FTYP--TSM), LISTAD points to an addressing 
list; if this is a receive file (FTYP—RCV), LISTAD Points 

to a polling list. See index entry polling/addressing. 


LISTAD is required only when TYPE—CS is specified. 


ERRLOG-—address 


Specifies the symbolic address identifying the first byte of 
an area in main storage to be used for logging transmission 
statistics by terminal. You must provide one such area 
for each telecommunications line used ($LOGB macro 
instruction); and each area must be large enough to con- 
tain statistics for each unique polling and addressing se- 
quence used in your program. For the format of this log- 
ging area and a formula for computing its size, see index 
entries $LOGB Macro Instruction and Terminal Statistics 
Logging Area. 


ERRLOG is required only when TYPE-—CS is specified. 


Note: Only one terminal statistics logging area per line is 
required in your program. Therefore, all ERRLOG oper- 
ands specified for DTFs using the same line will be 
identical. 
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POLRES-Y/N 


Specifies whether the control station modules required to 
poll and address tributaries, log terminal statistics, and 
close active files are to be resident in main storage; Y if yes, 
N if no. 


Specifying POLRES—Y for control stations saves a signifi- 
cant amount of execution time because transient modules 
do not have to be found and loaded from the disk object 
library each time the control station polls or addresses a 
tributary, logs terminal statistics, or closes an active file. 


POLRES is used only when TYPE-—CS is specified, and the 
POLRES operand must be specified the same way in all 
$DTFB macro instructions written for the same BSC line. 


LIM!T—decdig 


Specifies the number of times, in decimal, MLMP will 
accept a negative response from each terminal in a wrapped 
polling or addressing list before posting the $BCNIEG com- 
pletion code (see index entry completion code). Valid 
entries are 1-254. If no number is specified, MI.MP passes 
through a wrapped list until a positive response is received, 
an error is encountered, or the poll is canceled (see index 
entry $CANB macro instruction). 


LIMIT is used only when TYPE-—CS is specified. 


Note: Consider defining LIMIT for any addressing list 
created by a $POLB macro instruction in which LAST— 
WRAP was specified. See index entry $POLB macro 
instruction. 


DIAL—address 


Specifies the symbolic address identifying the first byte of 
the field containing the decimal number that must be dialed 
to extablish a switched connection. This operand is used 
only when TYPE—AC is specified. DIAL—address requires 
the DIALCT operand (see following paragraph). 


DIALCT—decdig 


Specifies, in decimal, the length of the number that must 
be dialed to establish a switched autocall connection. The 
maximum length permitted is 12. This operand is used 
only when TYPE—AC is specified, and requires the DIAL 
operand. 


RCV1D—address 


Specifies the symbolic address of the first byte of either the 
identification sequence required from the remote station 

or of the switched ID list (see index entry switched /D list 
for the format of the list). RCVID—address requires either 
the RCVCT operand or SWLIST — Y. Using RCVID and 
RCVCT or RCVID and SWLIST—Y improves data security 
on switched lines; these operands are recommended for 

all switched lines. 


RCVCT-—decdig 


Specifies, in decimal, the length of the identification se- 
quence required from the remote station. Length can be 
1-15. If 1 is specified, MLMP expects to receive 2 charac- 
ters — duplicates of the character addressed by the RCVID 
operand (preceding paragraph). If no length is specified, 
Ois assumed. RCVCT—decdig requires the RCV!D operand. 


SWLIST—Y/N 


Specifies whether this switched answer line will use the 
switched !D list (see index entry switched /D list for the 
format of the list); Y if yes, N if no. SWLIST—Y can be 
specified only when TYPE—AA or TYPE—MA is specified. 
SWLIST—Y requires the RCVID operand. 


SND!tO—address 


Specifies the symbolic address of the first byte of the iden- 
tification sequence required by the remote station. SNDID— 
address requires the SNDCT operand. Using the SNDID 

and SNDCT operands improves data security on switched 
lines; these operands are recommended for all switched 
lines. 


SNDCT—decdig 


Specifies, in decimal, the length of the identification sequence 
required by the remote station. Length can be 1-15. If 

1 is specified, MLMP transmits 2 characters — duplicates 

of the character addressed by the SNDID operand (preced- 
ing paragraph). SNDCT—decdig requires the SNDID 

operand. 


SPAN-—Y/N 


Specifies whether records in this file will span blocks of 
text; Y if yes, N if no. A spanned record must be contained 
within two contiguous blocks of text. 


When spanned records are received or transrnitted, DTF 
fields $BDWKB and $BDREL are altered. The fields are 
restored after successful |/O completion. If an error occurs 
during transmission of spanned records, you must restore 
$BDWKB and $BDREL before requesting another operation 
for the file. 


SPAN-—Y requires the RECSEP operand if this is a receive 
file (FTYP—RCV). See index entry $D7FB considerations. 
See also index entry BSC DTF for the format of the BSC 
DTF. 


RECSEP—hex 


Specifies the hexadecimal representation of a one-character 
record separator used to separate variable length records 
in blocks of text. See index entry $D7TFB considerations. 


ERRCT—decdig 


Specifies the number of times, in decimal, that MLMP re- 
tries an unsuccessful operation before posting an error con- 
dition. Valid entries are 1-254. If no number is specified, 
an error retry count of 7 is assumed. 


Note: ERRCT specifies an error retry count only for the 
local MLMP program; ERRCT does not affect the remote 
terminal. In an error situation occurring between two 
terminals with different retry counts, the lower retry count 
determines when the error becomes permanent. 


SDTFB Considerations 


MLMP supports three kinds of record formats: fixed length, 
variable length, and spanned. The kind of format you choose 
determines the way in which four $DTFB operands must 

be specified: RECL—decdig, BLKL—decdig, SPAN—Y/N, 
and RESCEP—hex. 
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Fixed Length: \f you choose to use fixed length records: 
1. Specify the record length in the RECL operand. 


2. Specify a multiple of the record Jength in the BLKL 
operand. 


3. Do not code the SPAN and RECSEP operands. 


Variable Length: Variable length records can change in 
length from one transmission to another. if you choose to 
use variable length records: 


1. RECL—The vaiue specified in the RECL operand 
should be the maximum expected record length. How- 
ever, when you transmit variable length records you 
must move the length of each record to $BDREL in 
the DTF before you issue $PUTB to transmit the 

-ord. \See index entry BSC OTF for the format of 
the DTF.) After each successful GET request issued 
to receive one or more variable length records (com- 

ietion code = $BCDNE): 


® The length of the biock received, including control 
characters, is moved to $BDREL if you specified 
OPC-BLK in $GETB (see index entry $GETB 
macro instruction), 

or 

® The length of the record received, including the 
record separator, is moved to $BDREL if you 
specified the RECSEP operand in $DTFB (see 
item 4 following). 


2: BLKL—The block length you specify should be the 
maximum expected block length. 


3. SPAN—Variable length records may or may not be 
spanned (see following paragraph). 


4. RECSEP—Although record separators are not re- 
juired with variable length records, you may want to 
use a record separator to delimit the records. If 
you do specify a record separator, MLMP automati- 
‘ally inserts the record separator at the end of each 
record transmitted. The record separator is the last 
data character moved to your logical buffer (addressed 
by the RCAD operand) when you receive variable 
length records. 
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OPC—BLK is recommended for each GET request (see 
index entry $GETB macro instruction) if you are to re- 
ceive variable length records that do not contain record 
separators. When OPC—BLK is specified in a GET request, 
the length of the block received is moved to $BDREL in 
the DTF. See index entry BSC D7TF for the format of the 
DTF. 


Spanned: Spanned records can be fixed or variable length. 
If you choose to use spanned records: 


1. Specify RECL and BLKL according to the format, 
f:xed or variable length, you choose {see two pre- 
ceding paragraphs). 


2. Specify SPAN—Y. 


3: Specify a record separator character (RECSEP oper- 
and). See index entry MLMP message formats 
for an illustration of spanned records. 


Note: The 3735 transmits spanned records. For for- 
matting considerations unique to the 3735, see /BM 
3735 Programmer’s Guide, GC30-3001. 


Allocate BSC Files (SALOC) 


Every BSC file must be allocated; that is, the BSCA required 
by each file must be reserved for the file before the file can 
be processed. Ail files in your program must be allocated 
before you begin any telecommunications I/O operations. 
The $ALOC macro instruction generates code that effects 

a branch to a system allocate routine. The system allocate 
routine reserves the devices identified by the $ALOC macro 
instruction. 


Note: $ALOC must not be issued while BSC 1/O operations 
are being executed. 


$ALOC Macro Instruction Format 


[[name}] [$ALOC [{DTF—namel | 


If you specify the keyword DTF, enter, as the parameter, 
the name of the DTF (file) to be allocated. If the operand 
is not given, the address of the DTF is assumed to be in 
register 2. 


if the DTF specified is in a chain, all DTFs following in the 
chain are opened by this request. (MLTA DTFs must not 
be in the chain. For information regarding MLTA, see /BM 
System /3 Multiple Line Terminal Adapter RPQ Program 
Reference and Component Description Manual, 
GC21-7560.) 


After $ALOC is executed, register 2 contains the address 
of the first DTF allocated. 


Open BSC Files (SOPEN) 


Every BSC file must be opened. The DTF and I/O area 
used by the file must be prepared to accommodate the 
data composing the file, and a DTF must be generated. 

The SOPEN macro instruction generates code that effects a 
branch to a system open routine; the routine opens the files 
identified by the $OPEN macro instruction. 


Note: \f you reopen a BSC file that has been closed (see 
index entry $CLOS macro instruction), record length, 
block length, and all other file attributes will be the same 
as they were at the time the file was closed. 


$OPEN Macro Instruction Format 


If you specify the keyword DTF, enter, as the parameter, 
the name of the DTF (file) to be opened. If the operand is 
not given, the address of the DTF is assumed to be in 
register 2, 


If the DTF specified is in a chain, all DTFs following in the 
chain are opened by this request. (MLTA DTFs must not 
be in the chain. For information regarding MLTA, see /BM 
System/3 Multiple Line Terminal Adapter RPO Program 
Reference and Component Description Manual, 
GC21-7560.) 
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After SOPEN is executed, register 2 contains the address of 
the last DTF opened. 


Generate a Model 10 and Mode! 12 Checklist ($CKL) 


The Model 10 Disk System, Model 12, and Model 15 use 
a macro named $CKL to generate a checklist. Since there 
are differences in parameters and in function, checklist 
macros are discussed separately. 


One $CKL macro instruction creates one entry in a check- 
list. A checklist identifies DTFs to be checked for I/O com- 
pletion by the $CHK macro instruction. The kinds of 

DTFs that can be identified by the checklist are: BSC DTFs, 
MLTA DTFEs, and console DTFs. The $CKL macro instruc- 
tions required to create a particular checklist must be coded 
consecutively. See index entry checklist for the format of 
the checklist. See also index entry check for //O 
completion (CHK). 


Model 10 and Model 12 $CKL Macro Instruction Format 


[name] $CKL DTF—address [,SKiP—-Y/N]} 


[,REQK—Y/N or ,CONS—Y/N] 


LRTN—Y/N] [,LAST—Y/N] 





name 


A name given to a $CKL macro instruction becomes the 
symbolic address of the first byte of the generated check- 
list entry. The name can then be used to address the entry 
if you want to change the entry. 


DTF—address 


Specifies the symbolic address of the first byte of the DTF 
for which this entry is being created. 


SKIP_Y/N 


Specifies whether this entry should be skipped when the 
checklist is scanned; Y if yes, N if no. 
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REQK~Y/N or CONS—Y/N 


Specifies whether the check routine (see index entry $CHK 
macro instruction) should check for console requests (REO 
key pressed); Y if yes, N if no. Whenever you want the 
check routine to check for console requests, you must in- 
clude a console DTF in the checklist and specify REQK—Y 
or CONS—Y for that entry. REQK—Y and CONS-Y are 
ignored if they are specified for a DTF that is not a console 
DTF. (A device code of X‘10’ in the first byte of a DTF, 
field $BDDEV, denotes a console DTF.) If the operator 
has pressed the REO key, a completion code of X‘50’ is 
posted in the console DTF. 


If a console DTF is to be used for both request key and 
data input at the same time, two entries (REQK—Y and 
REQK—N) must be specified in the checklist for that DTF. 


For more information regarding console operations, see 
/BM System /3 Models 10 and 12 Control Programming 
Macros Reference Manual, GC21-7562. 


RTN-Y/N 


Specifies whether you want control returned from the 
check routine even if no 1/O operation is complete; Y if 
yes, N if no. The RTN operand is effective only when 
specified for the first entry in the checklist, and applies to 
all entries in the list. See completion code $BCCMP (index 
entry completion code). 


LAST—Y/N 


Specifies whether this is the last entry in the checklist; Y 
if yes, N if no. LAST—Y must be specified for the last 
entry in the checklist. 


Generate a Model 15 Checklist ($CKL) 


One $CKL macro instruction creates one entry in a check- 
list. A checklist identifies DTFs to be checked for 1/O 
completion or for depression of Program Function Key 9 
(PF9). The kinds of DTFs that can be identified by the 
checklist are: BSC DTFs, and dummy DTFs which are 
15-byte DTFs used for the PF9 key. See index entry 
checklist for the format of the checklist. See also index 
entry check for //O completion ($CHK). 
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Model 15 $CKL Macro Instruction Format 


[name] $CKL 


DTF—address [,SKIP—Y/N]} 
(REQK—Y/N]} 


L.RTN—Y/N] [,LAST—Y/N] 





name 


A name given to a $CKL macro instruction becomes the 
symbolic address of the first byte of the generated check- 

list entry. The name can then be used to address the entry 
if you want to change the entry. 


DTF—address 


Specifies the symbolic address of the first byte of the DTF 
for which this entry is being created. A 15-byte dummy 
DTF is required to check whether Program Function Key 9 
has been pressed. Displacement X‘00’ should contain X'10’ 
and a completion code will be returned in displacement X'Ol 


SKIP—Y/N 


Specifies whether this entry should be skipped when the 
checklist is scanned; Y if yes, N if no. 


REQK-Y/N 


Specifies whether the check routine (see index entry 
$SCHK macro instruction) should check to see if the 
Program Function Key 9 (PFQ) has been pressed: Y if yes, 
N if no. Whenever you want the check routine to check for 
PF9 requests, you must include a dummy DTF in the 
checklist and specify REQK—Y for that entry. REQK—Y is 
ignored if it is specified for a DTF that is not a dummy 
(PF9) DTF. (A device code of X10’ in the first byte of a 
DTF denotes a dummy [PF9] DTF.) If the operator has 
pressed the PF9 key, a completion code of X‘50’ is posted 
at displacement X‘OE’ of the dummy (PF9) DTF. 


For more information regarding PF9 operations, see /BM 
System/3 Model 15 System Control Programming Macros 
Reference Manual, GC21-7608. 


RTN-Y/N 


Specifies whether you want control returned from the check 
routine even if no I/O operation is complete; Y if yes, N if 
no. The RTN operand is effective only when specified for 
the first entry in the checklist, and applies to all entries in 
the list. See completion code $BCCMP (index entry comple- 
tion code). 


LAST—Y/N 


Specifies whether this is the last entry in the checklist, Y 
if yes, N if no. LAST—Y must be specified for the last 
entry in the checklist. 


Generate a Polling/Addressing List ($POLB) 


If your station is a control station (TYPE—CS in the $DTFB 
macro instruction), you must generate a Polling or address- 
ing list in order to poll or address tributary stations. GET 
requests require a polling list; PUT requests require an 
addressing list. See index entries $GETB macro instruc- 
tion, and $PUTB macro instruction. 


One $POLB macro instruction creates one entry in a poll- 
ing or addressing list; each entry contains one sequence of 
Polling or addressing characters. An addressing list con- 
tains only one entry. Polling lists may contain a number 
of entries; the $POLB macro instructions that create a poll- 
ing list must be coded consecutively. 


For the format of polling/addressing lists, see index entry 
polling/addressing list. See also index entry tributary 
System/3 polling and addressing characters. 


$POLB Macro Instruction Format 


$POLB 1D—hex, TERMAD—hex,LEN—decdig 
[,LAST—N/OPEN/WRAP] 


name 


A name given to a $POLB macro instruction becomes the 
symbolic address of the first byte of the polling/addressing 
entry generated. The name can then be used to address 
the entry if you want to change the entry. See also index 
entry change a polling list (SBCPL). 


ID—hex 


Specifies two hexadecimal characters to identify this entry 
in the polling/addressing list. Valid entries are X‘00’ through 
X'EF’. 


When an entry ina polling/addressing list is used to poll or 
address a tributary station, MLMP places the entry ID in 
the BSC DTF at $BDIND (see index entry BSC DTF for the 
format of the DTF). If you specify a unique ID for each 
entry in a polling list, you can determine which station was 
polled last by checking the contents of $BDIND after a 
completion code has been posted (see index entry $CHK 
macro instruction). 


You can specify which station will be polled first in a 
polling sequence by moving the ID from the related polling 
list entry to the DTF before you issue the first GET request 
for that file (see index entry $GETB macro instruction). 
The ID you move must be different from the previous 1D 

in $BDIND. 


If you move X‘FO‘ to $BDIND all entries in the list are 
activated, and polling begins with the first entry in the 

list. If you move X‘F1‘ to $BDIND polling begins with the 
first entry in the list, but only entries that are currently 
active are included in the poll. 


When an MLMP program is assembled, $BDIND is set to 
X'F1'. MLMP always considers addressing lists to be 
active. 


For more information on how to change a polling list, see 
index entry change a polling list (SBCPL). 


TERMAD—hex 


Specifies the hexadecimal representation of uf to 7 polling 
or addressing characters. The Polling or addressing charac- 
ters must not include any of the line controt characters 
shown in Appendix D. Appendix D also shows the polling 
and addressing characters available for System/3 tributary 
stations. 
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LEN—decdig 


Specifies, in decimal, the number of bytes represented in 
the TERMAD operand. Decdig must not be greater than 7. 


LAST—N 


Specifies that this entry is not the last entry in the polling 
list. 


—OPEN 


Specifies that this is the last entry in the polling/addressing 
list, and that polling or addressing must end even if a posi- 
tive response is not received ($BCNEG completion code). 


Note: After polling the last station in an open polling list, 
move the ID of the first entry in the polling list, (X‘FO’, 
or X‘F1') to $BDIND if you expect to use the polling list 
again in your program. See the preceding description of 
the 1D operand. 


—WRAP 


Specifies that this is the last entry in a polling list, or is an 
addressing entry. If a positive response is not received, 
polling must continue from the beginning of the list, or 
addressing must continue, until a positive response is re- 
ceived, an error is encountered, or LIMIT is reached (LIMIT 
is defined in the $DTFB macro instruction). 


Either LAST—OPEN or LAST—WRAP is required in the 
last entry of a polling list and in all addressing entries. If 
LAST—WRAP is specified for a polling list, the polling 
cycle can always be canceled by the $CANB macro instruc- 
tion (see index entry $CANB macro instruction). However, 
to prevent an infinite addressing loop in the event that a 
negative response (NAK) is received from the terminal 
addressed, LIMIT must be defined in $DTFB (see index 
entry $DTFB macro instruction) whenever LAST-WRAP 
is specified for an addressing list. 


Change a Polling List (SBCPL) 


The $BCPL macro instruction enables you to activate and 
deactivate selected entries in a polling list created by the 
$POLB macro instruction. For example, you can use the 
$BCPL macro instruction to: 


@ Deactivate entries you have decided not to use. You 
may want to deactivate an entry if the terminal does not 
respond to polling (SBCNON completion code). See 
index entry completion code. 


@ Reactivate entries that have been deactivated. 


Note: $BCPL requires approximately 110 bytes of main 
storage plus the space required by the parameter list. Un- 
less you have a large number of polling entries to change, 
you can activate and deactivate polling entries more effi- 
ciently yourself by changing the status byte in polling 
entries. See index entry po/ling/addressing list. 


$BCPL Macro Instruction Format 


| (name) | $BCPL [PARM—address] 


PARM-—address 


Specifies the symbolic address of a parameter list you pro- 
vide. The parameter list defines the changes you want to 
make to a polling list. For the format of the parameter 
list, see index entry parameter list for changing a polling 
list or switched ID list. You can use the $CHGB macro 
instruction to generate the parameter list. See index entry 
$CHGB macro instruction. 


If the PARM operand is not specified, the address of the 
parameter list is assumed to be in register 1. 


After $BCPL is executed, register 1 contains the address of 
the parameter list. 


Generate a Parameter List for Changing a Polling List or a 
Switched ID List (SCHGB) 


The $CHGB macro instruction generates a parameter list 
for changing a polling list (see index entry $8CPL macro 
instruction) and for changing a switched !D list (see index 
entry $8CSW macro instruction). For the format of this 
parameter list, see index entry parameter list for changing a 
polling list or switched ID list. 


$CHGB Macro Instruction Format 


[name] | $CHGB| TYPE—AM/AN/DM/DN,DTF—address, 
a NUM--hex,CHARS—hex 


name 


A name given to a $CHGB macro instruction becomes the 
symbolic address of the first byte of the generated param- 
eter list. The name can then be used to address specific 
fields in the list if you want to change the fieids. 


TYPE- 


Specifies the changes to be made in the polling/addressing 
or switched ID list. 


AM 


Activates selected entries, selecting only those entries whose 
characters exactly match the characters specified in the 
CHARS operand. 


AN 


Activates selected entries, selecting only those entries whose 
first N characters match the first N characters specified in 
the CHARS operand, where N is the number specified in 
the NUM operand. 


DM 


Deactivates selected entries, selecting only those entries 
whose characters exactly match the characters specified in 
the CHARS operand. 


DN 

Deactivates selected entries, selecting only those entires 
whose first N characters match the first N characters speci- 
fied in the CHARS operand, where N is the number speci- 
fied in the NUM operand. 

DTF—address 

Specifies the symbolic address of the DTF whose polling 
list or switched ID list is to be changed. 

NUM—hex 

Specifies in hexadecimal how many of the characters speci- 
fied in the CHARS operand are to be compared to charac- 
ters in polling list or switched 1D list entries. 

CHARS—hex 

Specifies the hexadecima! representation of characters to 
be compared to characters in polling list or switched ID 
list entries. 

Allocate the Terminal Statistics Logging Area ($LOGB) 
The $LOGB macro instruction allocates space for the 
Terminal Statistics Logging Area (see index entry Terminal 


Statistics Logging Area) for control stations (TYPE-—CS in 
$DTFB). 


$LOGB Macro Instruction Format 


| [name] | $LOGB | NUM-—decdig, LEN —decdig | 





name 


A name given to a $LOGB macro instruction becomes the 
symbolic address of the first byte of the allocated Terminal 
Statistics Logging Area and can be specified in the ERRLOG 
operand of the appropriate $DTFB macro instruction. 
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NUM—decdig 


Specifies in decimal the number of entries the Terminal 
Statistics Logging Area must contain. The value for NUM 
is calculated in one of two ways: 


1. Polling and/or addressing, no clusters: 

NUM = number of terminals to be polled + 
[number of terminals to be addressed or 
number of terminals for which an online 
test may be requested (see index entry 
online test)] 


For example: 


$/3 


Polled terminals = 4 
Addressed terminals = 4 


NUM =8 


2. Polling and/or addressing clusters: 


NUM = number of control units to be polled + 
number of devices to be polled + 
number of devices to be addressed 


For example: 





Control units polled = 3 
Devices polled = 8 
Devices addressed = 8 


NUM = 19 
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LEN—decdig 


Specifies in decimal the number of polling/addressing char- 
acters used in a polling/addressing sequence for this 
program. The maximum number for each terminal is 7. 


Generate a Switched ID List ($SWIB) 


If your station is an autoanswer or manual answer station 
(TYPE—AA or TYPE—MA in $DTFB), you can use the 
$SWIB macro instruction to generate a switched ID list 
containing the station identification sequences that your 
station will accept. For the format of this list, see index 
entry switched /D list format. 


Each $SWIB macro instruction creates one entry in the 
switched ID list; each entry contains one sequence of sta- 
tion ID characters. $SWIB macro instructions must be cod- 
ed consecutively. 


$SWIB Macro Instruction Format 
$SWIB |SELECT—hex,STAT!ID—hex, 
LEN—decdig [,LAST—Y/N] 


name 


A name given to a $SWIB macro instruction becomes the 
symbolic address of the first byte of the switched ID entry 
generated. The name can then be used to address the entry 
if you want to change the entry (for example, activate or 
deactivate an entry) by using the $$BCSW macro instruction. 


SELECT —hex 


Specifies two hexadecimal characters for selecting this entry 
in the switched ID list. Valid entry selection characters 
are X’00’ through X’EF’. 


When an entry in the switched ID list is compared to an 
identification sequence received from a remote terminal, 
MLMP places the entry selection characters in the BSC OTF 
at $BDRLN (see index entry BSC DTF for the format of 
the DTF). tf you specify unique entry selection characters 
for each entry in a switched ID list, you can determine 
which identification sequence you accepted last by check- 
ing the contents of $BDRLN after a completion code has 
been posted on your last MLMP I/O request. 


If you want to communicate with only one of several pos- 
sible terminals, move the entry selection characters asso- 
ciated with the terminal’s expected identification sequence 
to the DTF before you issue the first GET request to that 
file. The entry selection characters you move must be dif- 


ferent from the previous entry selection characters in 
$BDRLN. 


If you move X’FO’ to $BDRLN, all entries in the switched 
ID list are activated before the identification sequence re- 
ceived is inspected. Entries in the switched ID list are then 
compared to the ID received, beginning with the first entry 
in the list. If you move X’F1’ to $BDR LN, only those 
entries currently active in the switched ID list are used to 
inspect a received station ID. 


When an MLMP program specifying SWLIST-Y in $DTFB 
is assembled, $BDRLN is set to X'F 1’ to indicate that any 
active identification sequence in the switched ID list is 
acceptable. 


For more information on how to change a switched ID list, 
see index entry $CHGB macro instruction. 


STATID—hex 


Specifies the hexadecimal representation of a station identi- 
fication sequence. The maximum number of characters is 
15. 


LEN—decdig 


Specifies, in decimal, the number of bytes represented in 
the STATID operand. The maximum number of bytes is 
15. 


If you are using a switched ID list but you are willing to 
‘establish a connection with a terminal that does not send an 
identification sequence, you must define in your list an 
entry with LEN—O specified. (If an entry with length = 
zero is encountered in the list, a connection is established 
with the calling station whether a station ID was received 
or not. Consequently, if an entry with LEN—O must be 
used, place the entry at the end of your list so you can 
check station IDs that are received.) 


LAST—Y/N 


Specifies whether this is the last entry in the switched 1D 
list; ¥ if yes, N ifno. LAST—Y causes a one-byte end-of- 
list indicator to be generated. If end-of-list is encountered 
before an acceptable station identification sequence has 
been received, an invalid ID completion code ($BCBID) is 
posted (see index entry completion code). 


Change a Switched ID List ($BCSW) 


The $BCSW macro instruction enables you to activate and 
deactivate selected entries in a switched ID list created by 
the $SWIB macro instruction. For example, you can use 
$BCSW to: 


®@ Deactivate entries you have decided not to use. You 
may want to deactivate an entry to prevenrt communica- 
tion with a particular terminal, or to prevent communi- 
cation with a terminal that does not send an identifica- 
tion sequence (deactivate the entry with LEN—O 
specified). 


@ Reactivate entries that have been deactivated. 

Note: $BCSW requires approximately 110 bytes of main 
storage plus the space required by the parameter list. Unless 
you have a large number of switched ID entries to change, 
you can activate and deactivate switched !D entries more 


efficiently yourself by changing the status byte in switched 
ID entries. See index entry switched /D list. 


SBCSW Macro Instruction Format 


[ara [ e650 | Tran wien 


PARM~—address 





Specifies the symbolic address of a parameter list you pro- 
vide. The parameter list defines the changes you want to 
make to a switched ID list. For the format of the param- 
eter list, see index entry parameter list for changing a poli- 
ing list or a switched ID list. You can use the $CHGB 
macro instruction to generate the parameter list. See index 
entry $CHGB macro instruction. 


!f the PARM operand is not specified, the address of the 
parameter list is assumed to be in register 1. 


After $BCSW is executed, register 1 contains the address of 
the parameter list. 
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Generate a Translate Parameter List (STRL) 


The $TRL macro instruction generates the parameter list 
required by the System/3 translate routine. Appendix C 
shows the format of the parameter list. 


$TRL Macro Instruction Format 
TO-address,-F ROM—adaress, 
LEN—decdig, 1 RT —address 


A name given to a $TRL macro instruction becomes the 
symbolic address of the first byte in the generated para- 
meter list. The name can then be used to address specific 
fields in the list if you want to alter the fields. 





TO — address 


Specifies the symbolic address of the first byte of the area 
to which translated data will be moved. 


FROM -— address 
Specifies the symbolic address of the first byte of the data 


field to be translated. This address can be the same as the 
address specified in the TO operand. 


LEN — decdig 


Specifies the decimal length of the FROM field. 


TRT — address 


Specifies the symbolic address of the first byte of the trans- 
late table. 
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Generate a Translate Table (S$TRTB) 


The $TRTB macro instruction generates an EBCDIC to 
ASCII or an ASCII to EBCDIC translate table. The table 
is generated in the format required by the $TRL. macro in- 
struction (see index entry $7RL macro instruction), and 
can be addressed by $TRL when you translate data. 


$TRTB Macro Instruction Format 
| [name] $TRTB | [CODE-E/A] [,HEX—hex] | 


name 


A name given to a $TRTB macro instruction becomes the 
symbolic address of the first byte of the generated translate 
table. 


CODE-E/A 


Specifies whether the character code of the data to be 
translated is EBCDIC (E) or ASCII (A). $TRTB generates a 
258-byte table if CODE_—E is specified and a 130-byte table 
if CODE—A is specified. 


Note: if you specify CODE—A, you might want to code 

“DC 128XL1‘FF’” after the $TRTB macro instruction to 
allow for the occurrence of invalid ASCII characters. See 

index entry System/3 transtate tables. 


HEX—hex 


Specifies the hexadecimal pattern with which to replace any 
invalid characters found during translation. If the HEX 
operand is not specified, the replacement character is the 
substitute character — EBCDIC-3F, ASCII-1A. 


System/3 Translate Tables 


Translate Tables Generated by $TRTB: Translate tables 
generated by the $TRTB macro instruction are generated in 
the following format: 


Byte Field Description 


0 Contains X‘FF’. This is the hexadecimal 
value used in the translate table to identify 
characters that cannot be translated from 
EBCDIC to ASCII if CODE—E was specified 
in $TRTB or from ASCII to EBCDIC if 
CODE—A was specified. 


1 Byte contents to be used in place of charac- 
ters that are not translated. 


2-n Actual translate table. 


The translate table, bytes 2-n, is constructed so that the 
hexadecimal value of a character to be translated can be 
used as a displacement (from byte 2) to locate the correct 
translation in the table. 


When the correct translation for a byte is located in the 
table, the translation is compared to byte 0. If the two 
bytes are the same: 


@ The completion code in the translate parameter list 
(see index entry trans/ate parameter list) is set to indi- 
cate that an invalid character was detected, and 


@ The contents of byte 1 are substituted for the original 
character. 


If the translation of a character is not the same as the 
contents of byte 0, the hexadecimal value in the trans- 
late table is substituted for the original character. 


User-Defined Translate Tables: \f you don't want to trans- 
late certain valid EBCDIC or ASCII characters (you might 
not want to translate BSC line control characters, for exam- 
ple), you can generate your own translate table. However, 
you must generate the table in the format clescribed in the 
preceding paragraphs. 


Choose hexadecimal values for bytes O and 1 of the table. 
Then, as you construct the rest of the table, substitute the 
value of byte 0 for each character that cannot be translated 
and for each valid character that you choose not to translate. 


Generate an Interface to the Translate Routine (STRAN) 


The $TRAN macro instruction generates linkage to the 
the System/3 translate routine. After issuing 

$TRAN, check the completion code in the translate para- 
meter list to determine whether or not invalid characters 
were found. See index entry trans/ate parameter list for 
the format of the translate parameter list. 
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$TRAN Macro Instruction Format 


[tramel] STRAN [ TTRL—eaerest 


TRL—address 


Specifies the symbolic address of the translate parameter 
list. If not given, the address is assumed to be in register 1. 
After $TRAN is executed, register 1 contains the address 
of the translate parameter list. 


Generate an Online Test Parameter List ($RFTL) 


The $RFTL macro instruction generates the parameter list 
required for online test requests (see index entry online test 
requests). For the format of the parameter list, see index 
entry online test parameter list. 


$SRFTL Macro Instruction Format 






TYPE—00/01/06/14,NUM—decdig, 
LEN—decdig [,CODE—E/A] 
L.TERMAD—hex] 








name 


A name given to a $RFTL macro instruction becomes the 
symbolic address of the first byte of the generated param- 
eter list. The name can then be used to address specific 
fields in the list if you want to change the fields. 


TYPE-— 
Specifies, in decimal, the online test type: 
00 


Receive and acknowledge the test message the number 
of times specified in the NUM operand. The formatted 
test request must not be more than 300 characters long. 
See index entry online test requests. 


01 


Transmit the test message the number of times specified 
in the NUM operand. The formatted test request must 
not be more than 300 characters long. See index‘entry 
online test requests. 
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06 


Transmit 36 alphameric characters, A-Z and 0-9, the 
number of times specified in the NUM operand. Trans- 
mit the characters in ASCII (ASCI! adapter only). 


14 

Transmit 36 alphameric characters, A-Z and 0-9, the 

number of times specified in the NUM operand. Trans- 

mit the characters in EBCDIC (EBCDIC adapter only). 
NUM—decdig 
Specifies, in decimal, the number of times to transmit or re- 
ceive the test message. Valid entries are 1-99 (leading 
zeroes must not be used). 


LEN—decdig 


Specifies, in decimal, the number of addressing characters 
(0-7). LEN must be 0 for: 


@ All non-multipoint lines (TYPE—PP,AC,MC,AA, or MA 
in $DTFB) 


@ Multipoint control stations (TYPE—CS in $DTFB) 


@ Multipoint tributary stations (TYPE—MP in $0TFB) 
requesting online test type 00. 


LEN must be greater than 0 only for muitipoint tributary 
stations (TYPE—MP in $DTFB) requesting some test type 
other than 00. 


CODE-E/A 


Specifies whether the character code of your data is 
EBCDIC (E) or ASCII (A). The character code you use is 
determined by the transmission code feature of your BSCA. 


TERMAD—hex 


Specifies the hexadecimal representation of the addressing 
characters to be used, not more than 7 bytes. The number of 
bytes required to contain the addressing characters must be 
equal to the number specified in the LEN operand. 


INITIATING DATA TRANSFER 
To initiate data transfer you must issue: 


@ GET requests to receive data ($GETB macro instruc- 
tion), or 


© PUT requests to transmit data ($PUTB macro instruc- 
tion). 


All GET and PUT requests are executed in move mode. 
The first request causes MLMP to establish line connections 
according to the operands specified in the $DTFB macro 
instruction. An initial GET request can be canceled after 

it has been issued ($CANB macro instruction). 


You must check for the completion of every BSC I/O 
operation you initiate (SCHK macro instruction). That 
is, you must issue $CHK after every GET request, PUT re- 
quest, and request for online test (see index entry online 
test) before you issue another GET request for the same 
line, PUT request, or request for online test. You must 
also issue $CHK after each $CANB macro instruction. 


Move Mode 


Data is moved from the MLMP 1/O buffers to your logical 
buffer on GET requests, and from your logical buffer to 
the MLMP I/O buffers on PUT requests. A single GET or 
PUT request does not necessarily result in the actual trans- 
mission of data over a telecommunications line. 


Records for conversational files (CONV—Y in the $DTFB 
macro instruction) are transmitted one at a time. Con- 
sequently, each GET or PUT request causes MLMP to re- 
ceive or transmit one record. 


For ail nonconversational files, however, a GET request 
causes data to be transmitted from the remote terminal 
only if the GET request moves to your logical buffer the 
last record contained in an MLMP I/O buffer. After the 
GET request is executed, an I/O buffer is empty and avail- 
able to MLMP for receiving more data, and transmission 
from the remote terminal can continue. 


A PUT request for a nonconversational fite causes data to 
be transmitted to the remote terminal only if the record to 
be moved to an MLMP I/O buffer cannot be contained in 
the current |/O buffer. 


Issue a GET Request ($GETB) 


The $GETB macro instruction instructs MLMP to move data 
from an MLMP I/O buffer to your logical buffer. Do not 
attempt to move data to or from your logical buffer after 
issuing a GET request until you have been posted a DTF 
completion code by the check routine. See index entry 
$CHK macro instruction. 


$GETB Macro Instruction Format 


$GETB [DTF—address} [,REJECT—address] 
[,OPC—N/BLK] 


DTF—address 


Specifies the symbolic address of the DTF (file) for which 
the GET request is issued. If not given, the address of the 
DTF is assumed to be in register 2. 


After $GETB is executed, register 2 contains the address 
of the DTF for which the GET request was issued. 


REJECT—address 


Specifies the symbolic address of a user routine to receive 
control if the GET request cannot be accepted by MLMP. 
You must provide the routine. The routine should check 
the DTF completion code to determine why the GET re- 
Quest was not accepted. See index entry completion code. 


If the REJECT operand is not specified, check for a DTF 
completion code of $BCREO after each GET request to 
determine whether or not the request was accepted. See 
index entry completion code. 


You might want to print a message to signal rejected GET 
request. In most cases, a request is rejected loecause of a 
logic error in your program. Check your logic flow, para- 
meter lists, and DTF for errors. Consider using the $SNAP 
macro instruction to dump your program. See index entry 
$SNAP macro instruction. 
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OPC-—N 


Specifies normal blocking and deblocking; that is, data 
received will be stripped of control characters and moved to 
your logical buffer (addressed by the RCAD operand in 
$DTFB) one record at a time. 


OPC—BLK 


Specifies that data received will be moved to logical buffer 
one block at a time. Each block of data moved will include 
line control characters. The length of the block moved 

will be placed by MLMP in $BDREL of the DTF. For the 
format of the DTF, see index entry BSC DTF. 


OPC—BLK is recommended for GET requests for conversa- 
tional files. See index entry conversational reply for the 
significance of OPC—BLK in GET requests for a conversa- 
tional file. OPC—BLK is also recommended for GET re- 
quests issued to receive variable length records that do not 
contain record separators. See index entry $D7FB con- 
siderations for more information on variable length records. 


Note: \f you specify OPC—BLK, be sure your logical buffer 
(identified by the RCAD operand in the $DTFB macro 
instruction) is large enough to.contain an entire block of 
data plus line control characters. For a description of the 
RCAD operand, see index entry $D7FB macro instruction. 


Issue a PUT Request ($PUTB) 

The $PUTB macro instruction instructs MLMP to move 
data from your logical! buffer to an MLMP 1/O buffer. Do 
not attempt to move data t8 ‘or from your Sogical buffer 
after issuing a PUT request until you have been posted a 


DTF completion code by the check routine. See index entry 
$CHK macro instruction. 


$PUTB Macro Instruction Format 


$PUTB [DTF—address] [,REJECT—address] 
[,OPC—N/EOB/EOF/EOW]) 
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DTF—address 


Specifies the symbolic address of the DTF (file) for which 
the PUT request is issued. If not given, the address of the 
DTF is assumed to be in register 2. 


After $PUTB is executed, register 2 contains the address of 
the DTF for which the PUT request was issued. 


REJECT—address 


Specifies the symbolic address of a user routine to receive 
control if the PUT request cannot be accepted by MLMP. 
You must provide the routine. The routine should check 
the DTF completion code to determine why the PUT re- 
quest was not accepted. See index entry completion code, 


If the REJECT operand is not specified, check for a DTF 
completion code of $BCREQ after each PUT request to 
determine whether or not the request was accepted. See 
index entry completion code. 


You might want to print a message to signal a rejected 

PUT request. In most cases, a request is rejected because of 
a logic error in your program. Check your logic flow, para- 
meter lists, and DTF for errors. Consider using the $SNAP 
macro instruction to dump your program. See index entry 
$SNAP macro instruction. 


OPC_N 


Specifies normal blocking and deblocking. That is, data 
will be moved from your logical buffer (addressed by the 
RCAD operand in $DTFB) to available 1/O buffers one 
record at a time. 


OPC—EOB 


Specifies that in addition to performing normal blocking 
operations, MLMP must make the current record the last 
record in the current output buffer, thereby forcing an end- 
of-block condition. ETB (ETX for conversational files) 

is transmitted at the end of this record. 


See index entry conversational reply for the significance 
of OPC—EOB in PUT requests for conversational files. 


OPC—EOF 
Specifies that MLMP transmit EOT to indicate end-of-file. 


Note: \f you specify OPC—EOF in the first PUT request 

for a file, or in a PUT request that immediately follows a 

GET request for the same file, the PUT request will be re- 
jected and the $BCIGN completion code will be posted in 
the DTF. See index entry completion code. 


OPC—EOW 


Specifies that EOT will be sent after each record in response 
to ACK or WACK. Each transmission consists of only one 
record when OPC—EOW is specified. 


If OPC—EOW is specified in PUT requests for a System/3 
control station’s files (TYPE—CS in the $DTFB macro 
instruction), tributary stations can process each record as 

it is received from the control station without delaying 
transmissions between the control station and other tribu- 
taries in the network. After EOT has been sent to a tribu- 
tary in response to ACK or WACK, other tributaries can 

be polled or addressed. The tributary that received EOT can 
also be polled or addressed again. 


For more efficient use of line time, OPC—EQW is recommen- 
ded when you transmit from a control station to a 2972/ 
2980 terminal. You must specify OPC—EOW if you are 
transmitting to a 3270 printer. However, EOT is not a 

valid response to WACK for every kind of terminal. Know 
the restrictions pertaining to the terminals you use before 
specifying OPC—EOW. 


Note: Don't specify OPC—EOW for a conversational file 
(CONV-Y in the $DTFB macro instruction) if you expect 
to receive a conversational reply. If you do specify OPC— 
EOW for a conversational file, conversational replies will 
be ignored and lost. 


Cancel a GET Request ($CANB) 


The $CANB macro instruction instructs MLMP to cancel 

a GET operation that is in progress. $CANB enables you to 
override wrapped polling lists if you are a control station 
(TYPE—CS in the $DTFB macro instruction) and cancel 
initial GET requests. 


Issue $CHK for each accepted cancel GET request. If the 
check routine posts the $BCEOT completion code, the 

GET request was canceled by $CANB. If any other com- 
pletion code is posted, it pertains to the GET request—$CANB 
has been ignored and you must proceed according to the 
completion code posted for the GET request. 


$CHK needn't be issued for a GET request before it is 
canceled. However, if you are polling with a wrapped poll- 
ing list or waiting to be addressed, a way to determine 
whether or not to cancel the GET request is: 


1. Check the GET request with RTN—Y specified in 
SCKL (see index entry $CKL macro instruction). 


2. Look for the $8CCMP completion cocle (see index 
entry completion code). \f $BCCMP is posted by 
the check routine and none of the OTEs in the 
checklist indicate completion yet, you might want 
to stop polling or waiting to be addressed. 


SCANB Macro Instruction Format 


[SCANB  [[OTF—address) 


[name} 


DTF—address 


Specifies the symbolic address of the DTF (file) for which 
the cancel request is issued. If not given, the address is 
assumed to be in register 2. 


After $CANB is executed, register 2 contains the address of 
the OTF for which the cancel GET request was issued. 


Check for !/O Completion ($CHK) 


The $CHK macro instruction generates linkage to a check 
routine. The check routine checks for I/O completion by 
examining the DTFs identified in the list created by the 
$CKL macro instruction. See index entries checklist and 
$CKL macro instruction for a description of the checklist. 
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If an 1/0 operation is complete, the address of the comple- 
ted DTF is returned in register 2 after the completion code 
is posted in the DTF (see index entry completion code). 


@ Model 10 and Model 12: If the REQ key on the 5471 
Printer Keyboard was pressed, and the related DTF 
appears in the checklist (REQK—Y or CONS—Y specified 
for the entry in the checklist), a completion code of 
X’‘50' is posted in the console DTF and the address of 
the DTF is returned in register 2. 


@ Model 15: If the Program Function Key 9 (PF9) was 
pressed and the related dummy DTF appears in the check- 
list (REQK-—Y specified for the entry in the checklist), 

a completion code of X’50’ is posted in the dummy 
DTF and the address of the DTF is returned in register 2. 


Subsequent DTFs in the checklist are not tested if a com- 
pleted DTF or a console/PF9 request is found. 


To get completion codes posted in all DTFs in a list, con- 
tinue to issue $CHK. If the check routine finds a comple- 
ted BSC DTF with a$BCERR, $BCTIM, $BCDAT, $BCLOS, 
$BCCON, $BCRSP, or $BCADP completion code (see 

index entry completion code). MLMP logs the following 
message on the system logging device: 


BSCA LINE—(1 or 2) CODE cc—(description) 


Compietion code 


TERMINAL ADDRESS-— (characters) 
Polling or addressing characters 


Printed for control stations only 


If no 1/0 completion is found, the $BCCMP or $BCACD 
completion code is posted in the fast DTF in the checklist 
and the address of the DTF is returned in register 2 if: 


@ You specified RTN—Y in the $CKL. macro instruction 
that created the first entry in the checklist (SBCCMP 
completion code), or 


@ Each entry in the checklist is closed, inactive, or has 


the skip indicator on (SKIP—Y specsfied in $CKL,) 
($BCACD completion code). 
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Model 10 and Model 12: Otherwise, the check routine does 
not return control, but issues a halt and waits for an interrupt. 
The halt displayed on the stick lights is {]. After a BSCA or 
MLTA interrupt, the [ ] halt is automatically reset and the 
check routine searches the checklist again from the begin- 
ning. The check routine does not automatically reset the 

{ ] halt after 5471 completions; you must manually reset 

the [] hait if you are currently using the printer keyboard. 


You must check for completion of all telecommunications 
1/0 operations, including those controlled by MLTA. (For 
information regarding MLTA, see /BM System/3 Multiple 
Line Terminal Adapter RPO Program Reference and Com- 
ponent Description Manual, GC21-7560.) Issue $CHK for 
every accepted GET request ($GETB), PUT request 
($PUTB), and request for online test ($RFT) before issuing 
another $GETB, $PUTB, or $RFT for the same line. (For 
a description of online test, see index entry online test.) 


You must also issue $CHK after accepted cancel GET re- 
quests ($CANB). You can issue $CHK to check for com- 
pletion of printer-keyboard |/O and request operations. 
(Model 10 and Model 12) or PF9 key requests (Model 15). 


You can save time in your program by doing some pro- 
cessing, that is independent of a particular 1/O request, 
before you check the request. When $CHK is then issued, 
the check routine will not have to wait so long for com- 
pletion to occur, and wiil return control to you sooner. 


Model 10 and Model 12 Note: \f you want to use the printer 
keyboard REQ key for operator interaction and your program 
is running in a DPF (dual programming feature) system, allo- 
cate the REQ key to your program by link-editing the pro- 
gram as an inquiry invoking module (ATTR—INQ in thé // 
OPTIONS statement). For more information on tink edit- 
ing, see /BM System/3 Overlay Linkage Editor Reference 
Manual, GC21-7561. For information on DPF, see the 
appropriate components reference manual listed in the 
Preface. 


$CHK Macro Instruction Format 


$CHK [CKL—address] 


CKL-address 


Specifies the symbolic address of the first byte of a check- 
list or group of checklist entries. If none is given, the 
address of the checklist or checklist entries is assumed to 
be in register 2. 


Techniques for Initiating Data Transfer 
Poll (Control Stations) 


If your station is a control station (TYPE—CS in the 
$DTFB macro instruction), MLMP polls the tributary 
stations to receive data from them. To poll a tributary 
station: 


1. Issue a GET request ($GETB) for the receive file. 
When the request is accepted, MLMP will poll the 
first station in the polling list identified by the re- 
ceive file’s DTF. MLMP continues to poll stations 
in the list until: 


® Astation responds by sending data. 


® An active station fails to respond. 


@ All stations are polled the number of times speci- 
fied in the LIMIT operand of the $OTFB macro 


instruction. 
@ No active entries exist in the polling list. 
2. After issuing $GETB, determine whether the GET 


request was accepted (see index entry completion 
code). (If you specified REJECT—address in the 


$GETB macro instruction, you don’t have to deter- 


mine whether the GET request was accepted. See 
index entry $GETB macro instruction.) 


3. If the GET request was accepted by MLMP, issue 
a check request ($CHK). 


If the $BCDNE completion code (successful com- 


pletion) is posted, you can continue to receive data 
(issue $GETB) until the $BCEOT completion code 


(end-of-file received) is posted. Another GET re- 


quest then reinitiates polling; a PUT request ($PUTB) 


initiates addressing. 


Continue according to the completion code posted. 


Address (Control Stations) 


If your station is a control station (TYPE--CS in the $DTFB 
macro instruction), MLMP addresses a tributary station 
to transmit data to it. To address a tributary station: 


1. Issue a PUT request ($PUTB) for the transmit file. 
When the request is accepted, MLMP will address 
the station in the addressing list identified by the 
transmit file’s DTF. 


2. = After issuing $PUTB, determine whether the PUT 
request was accepted (see index entry completion 
code). (If you specified REJECT—address in the 
$PUTB macro instruction, you don’t have to deter- 
mine whether the PUT request was accepted. See 
index entry $PUTB macro instruction. ) 


3. If the PUT request is accepted by MILMP, issue a 
check request ($CHK). 


4. Continue according to the completion code posted. 


If the completion code is $BCNEG, you may have 
received a reverse interrupt request (RVI) from the 
addressed terminal. Check RVIADR (specified in 
the $DTFB macro instruction) to determine whether 
or not you received an RVI whenever the $BCNEG 
completion code is posted to an addressing attempt. 
If you did receive an RV! from the addressed ter- 
minal, poll the terminal (see index entry po//). 
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Addressing Considerations: \f files for the tributaries in 

a network are the same in terms of record length, block 
length, line code, conversational mode, 1TB checking, and 
transparency, you need only one DTF to address all the 
tributary stations in the network. Using only one DTF, you 
can address the tributaries in either of the following two 
ways. (Though completion codes are not discussed in the 
following procedures, check for completion as always.) 


1. Use several addressing entries: 


a. Create an addressing entry for each tributary you 
want to address (see index entry $2OLB macro 
instruction). 

b. Specify in the LISTAD operand of the $DTFB 
macro instruction the location of the first address- 
ing entry you want to use. 

c. Issue a PUT request (SPUTB). 

d. Issue a PUT request with OPC—EOF specified 
(see index entry $PUTB macro instruction) when 
you are done transmitting to the tributary. 

e. Change field $BDLST in your DTF (see index 
entry BSC DTF for the format of the DTF) to 
point to the next addressing entry you want to 
use. 


Repeat steps (c) through (e) until you have 
finished transmitting. 


2. Use only one addressing entry: 


a. Create an addressing entry for the first tributary 
you want to address (see index entry $POLB 
macro instruction). 

b. Specify in the LISTAD operand of the $DTFB 
“macro instruction the location of the addressing 
entry. 

c. Issue a PUT request ($PUTB). 

d. Issue a PUT request with OPC—EOF specified 
(see index entry $PUTB macro instruction) when 
you are done transmitting to the tributary. 

e. Move the next tributary’s addressing characters 
into the third field of the existing addressing entry 
(see index entry polling/addressing list for the 
format of addressing entries). 


Repeat steps (c) through (e) until you have finished 
transmitting. 


32 


Respond to Polling or Addressing (Tributary Stations) 


A tributary station (TYPE—MP in the $DTFB macro in- 
struction) monitors a multipoint line for polling or address- 
ing characters only when the tributary is in control mode. 
MLMP establishes control mode by performing a receive- 
initial (RCV!) operation. The receive-initial operation is 
performed when the tributary issues the first PUT ($PUTB) 
or GET ($GETB) request. If the tributary then receives 

its polling or addressing characters, the tributary enters 
text mode and data transmission to or from the control 
station can proceed. 


To monitor the line for polling characters, issue a PUT 
request. If the $BCDNE completion code is posted after 
an accepted PUT request, you have transmitted data to 
the control station. 


To monitor the line for addressing characters, issue a GET 
request. If the $BCDNE completion code is posted after 
an accepted GET request, you have received data from the 
control station. 


To re-enter control mode after transmitting or receiving 
end-of-file (EOT), issue a PUT or GET request. (Control 
mode is re-established automatically if you specified 
AUTORS-—Y in your $DTFB macro instructions. See index 
entry $DTFB macro instruction.) 


Note: A System/3 tributary station is committed at any 
particular time to monitoring either for polling or for 
addressing characters. If you are looking for one kind 
and the control station is transmitting the other, data 
transmission between you and the control station will not 
occur; you will be posted the $BCNCN completion code 
(see index entry completion code). 


Receive Only 


Issue GET requests ($GETB) for the receive file until the 
$BCEOT completion code is posted in the DTF (after 
$CHK is issued). $BCEOT indicates that you have received 
end-of-file (EOT) from the remote terminal. See index 
entry terminating data transfer for MLMP end-of-job in- 
formation. 


Transmit Only 


Issue PUT requests ($PUTB)*for the transmit file until the 
entire file has been transmitted, then send end-of-file (EOT). 
End-of-file can be sent by specifying OPC—EOF in a PUT 
request (see index entry $PUTB macro instruction), by 
issuing a request for a different file, or by closing ($CLOS) 
the file. See index entry terminating data transfer for 
MLMP end-of-job information. 


Conversational Reply 


If you want to transmit or receive conversational replies, 

you should be aware of the BSC line conventions pertain- 

ing to the use of the ETB, ETX, and EOT line control char- 
acters. The following discussion describes the conventions 
as they relate to conversational replies. Whenever a BSC pro- 
gram violates the conventions described, the effect upon 

the program may not be predictable. 


Transmitting from a Conversational File: When you trans- 
mit from a conversational file (CONV—Y in the $DTFB 
macro instruction), each PUT request for which OPC—N 

is specified causes transmission of one record in the follow- 
ing format: 





Transparency Only 


PUT requests for which OPC—EOB is specified causes 
transmission of records in this format: 





Transparency Only 


By convention, you cannot send a conversational reply in 
response to a message ending with ETB. If you are trans- 
mitting to a terminal that may want to send a conversation- 
al reply back to you and you are ready to accept a conver- 
sational reply, you must notify the terminal that you will 
accept a conversational reply by transmitting a message 
ending with ETX. Since line procedure requires that at 
least two messages be sent from one terminal before the 
other terminal can respond with a conversational reply, you 
must transmit a message ending with ETX in one of two 
ways: 


@ If you are transmitting two or more consecutive mes- 
sages to the remote terminal, specify OPC—EOB in 
the last PUT request issued. 


@ If you are transmitting only one data message to the 
remote terminal, follow the message with a null mes- 
sage. A nuil message is STX ETX, and is transmitted 
by changing $BDREL in the DTF to zero, then issuing 
a PUT request for which OPC—EOB is specified. Before 
transmitting a null message, however, be sure the re- 
mote terminal can accept null messages. (If a null mes- 
sage is received, the $BCNDT completion code is posted. 
See index entry co:npletion code.) 


Once you have transmitted a message from a conversational 
file, even if it was a null message, you must wait for the 
$BCCRP completion code to be posted before you can issue 
a GET request for the file (see index entry completion 
code). 


Note: \f you are going to transmit from a conversational 
file after you have received records for the file, reset 
$BDREL if the record length you want to transmit is dif- 
ferent from the record length you've been receiving. 


Receiving to a Conversational File: \f you are receiving 
messages to a conversational file (CONV—Y in the $DTFB 
macro instruction) and you want to transmit a conversa- 
tional reply, you can determine whether the remote ter- 
minal will accept a conversational reply by looking for a 
message ending with ETX. By specifying OPC--BLK in 
the GET requests for a conversational file, you can have 

a message plus its control characters moved from the BSC 
1/O buffers to your logical buffer (addressed by the RCAD 
operand in $DTFB). That is, messages received will be 
moved to your logical buffer in the following format: 


Ss 
T Text (if any) 
Xx 
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Since the length of the message received is in $BDREL of 
the DTF, you can use $BDREL to locate the last character 
received to determine whether it was ETB or ETX. If the 
message ended with ETB, you cannot send a conversational 
reply; you can send a conversational reply if the message 
ended with ETX. 


Closing a Conversational File: After all messages for a 
conversational file have been sent and received, the terminal 
that sent the last message, even if it were a null message, 
must also send EOT. EOT can be sent by specifying OPC— 
EOF in a PUT request (see index entry $PUTB macro 
instruction), by issuing a request for a different file, or by 
closing ($CLOS) the file. See index entry terminating data 
transfer for MLMP end-of-job information. 


Always send EOT immediately after transmitting the last 
message for a file. If the terminal receiving the last mes- 
sage should transmit EOT before you do, your conversa- 
tional file will be terminated with a permanent error posted 
in the DTF ($8CERR completion code). 


Summary: 


@ If you are transmitting from a conversational file, notify 
the remote terminal that you will accept a conversation- 
al reply by: (1) specifying OPC—EOB in your last PUT 
request if you are sending two or more consecutive 
messages, or (2) transmitting a null message. 


@ If you are receiving messages to a conversational file, 
specify OPC—BLK in your GET requests and look for 
ETX at the end of messages received to determine when 
you can send a conversational reply. 


@ If ali messages for your conversational file have been 
sent and received and you sent the last message, trans- 
mit EOT. 


The two flowcharts that follow outline the techniques for 
transmit-with-reception-of-conversational-reply and receive- 
with-transmittal-of-conversational-reply. 


Transmit with Reception of Conversational Reply: The 
GET and PUT requests shown are issued for the same file. 
See index entry completion code for a definition of the 
codes appearing in the following flowchart. 





Issue $PUTB to transmit 
a message. Issue $CHK 
to check for I/O 
completion. 








No 





Completion 
code = $BCDNE 












Issue $PUTB to transmit 
ETX (OPC—EOB). Issue 
$CHK to check for I/O 
completion. 





More than one 
PUT left 











Completion 
code = $BCONE 





Yes 


Transmit EOT. 


Note: MLMP does not block and deblock data for a file 
when you specify that the file can receive conversational 
replies. 












Completion 
code = $8CCRP 


Yes 


Issue $GETB (OPC—BLK) 
to receive data. Issue 
$CHK to check for !/O 
completion. 


Completion 
code = $BCDNE 


ETX received 


Yes 














No 


No 


Respond to 
unsuccessful 
PUT request. 
Completion No 
code = $BCEOT 
Yas 
Respond to 
unsuccessful 
GET request. 
End-of-file 
receivec!. 
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Receive with Transmittal of Conversational Reply: The 
GET and PUT requests shown are issued for the same file. 
See index entry completion code for a definition of the 
codes appearing in the following flowchart. 





Issue $GETB (OPC—BLK) 
to receive data. Issue 
$CHK to check for 1/O 
completion. 


















Completion No No 


code = $BCDNE 


Completion 
code = $BCEOT 





Yes 
Yes — End-of-file 


received. 
ETX received 


No 


PUT 


Yes 





Issue $PUTB to transmit 
a message. Issue $CHK 
to check for 1/O 
completion. 










No 





Completion 
code = $BCDNE 














Issue $PUTSB to transmit 
ETX (OPC—EOB). Issue 
$CHK to check for 1/0 
completion. 







More 
than one PUT 
left 







Completion 
code = $BCCRP 





Yes 


Note: MLMP does not block and deblock 
data for a file when you specify that the 
file can transmit or receive conversational 
replies. 
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Transmit EOT. 


Respond to 
unsuccessful 
GET request. 












Completion No 
code = $BCDNE | 
Yes Respond to 
unsuccessful 
PUT request. 


Receive Interspersed with Transmit 


The following chart outlines the technique for receive- 


interspersed-with-transmit. See index entry completion 


Receive-interspersed-with-transmit differs from receive- 
with-transmittal-of-conversational-reply in two ways: 


@ One DTF is required to receive data; another is required 
to transmit data. 


@® Reverse interrupt (RVI) request is used. 


Issue $GETB to receive 


data. Issue $CHK to 
check for 1/O completion. 



































Completion No Completion No 
code = $BCDNE code = $BCEOT 
Yes Yes 
Set on RVIMSK 
Yes (You must not set 
RVIMSK on before the 
* initial GET request.) 
No 
Issue $GETB to continue 
to receive data. Issue 
$CHK to check for 1/0 
completion. 
No 





Completion 
code = $BCDNE 


Note: Use this technique as many times as necessary to 
process the files in your program. Consider, however, that 
the reverse interrupt request is required only when the proc- 
essing of a file must be interrupted. For example, if a 
receive-only file were completely processed before you 
wanted to transmit, the reverse interrupt request would not 
be needed. 


code for a definition of the codes appearing in the follow- 
ing flowchart. 


Respond to unsuccessful 
GET request. 


End-of-file received. 






No Respond to 
unsuccessful 
GET request. 







Completion 
code = $BCEOT 


Yes 


Set off RVIMSK. 












Issue $PUTB to transmit 
data. Issue $CHK to check 
for 1/O completion. 


No Respond to 
unsuccessful 
PUT request. 





Completion 
code = $BCDNE 


Yes 
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Transmit Interspersed with Receive 


Transmit-interspersed-with-receive differs from transmit- 
with-reception-of-conversational-reply in two ways: 


@ One DTF is required to transmit data; another is required 
to receive data. 


@ Reverse interrupt request (RVI) is used. 


The following chart outlines the technique for transmit- 
interspersed-with-receive. See index entry completion 
code for a definition of codes appearing in the following 
flowchart. 





Issue $PUTB to transmit 
data. Issue $CHK to 
check for I/O completion. 











Completion 
code = $BCDNE 


Respond to unsuccessful 
PUT request. 












Issue $GETB to receive 
data. Issue $CHK to 
check for 1/O completion. 















RVIMSK 
set on 


Set off RVIMSK. 













Completion 
code = $BCDNE 











Completion No 


code = $BCEOT 


Note: Use this technique as many times as necessary to 
process the files in your program. 


Respond to unsuccessful 
GET request. 


TERMINATING DATA TRANSFER 
Data transfer is terminated by: 
® Terminating BSC files. 


@ Closing BSC files ($CLOS macro instruction). 


Terminate BSC Files 
Receive Files (FTYP—RCV) 


Non-conversational receive files are terminated when an 
end-of-file indication (EOT) is received for the file ($BCEOT 
completion code posted). For information about termin- 
ating conversational files (CONV—Y in the $DTFB macro 
instruction), see index entry closing a conversational file. 


Transmit Files (FTYP-—TSM) 
Transmit files are terminated by: 
@ A$CLOS macro instruction. 


@ A$PUTB macro instruction that specifies end-of-file 
(OPC--EOF). 


®@ AGET request ($GETB), PUT request ($PUTB), or on- 
line test request ($RFT) for another DTF defined for 
the same telecommunications line. 


When you issue a GET, PUT, or online test request for 
another OTF defined for the line, MLMP terminates the 
Previous transmit file by transmitting any data remaining 
in the output buffers, then transmitting an end-of-file 
indication before accepting the new request. 


Ciose BSC Files ($CLOS) 


At the end of your MLMP program, you should close all 
files. The $CLOS macro instruction generates code that 
effects a branch to a system close routine. The system 
close routine then cioses the DTFs identified in the $CLOS 
macro instruction. 


$CLOS Macro Instruction Format 


$CLOS 


[DTF—address] 


[name] 


If you specify the keyword DTF, enter, as the parameter, 
the name of the DTF (file) you want to close. If the op- 
erand is not given, the address of the DTF is assumed to 
be in register 2. 


lf the DTF specified is in a chain, all DTFs following in the 
chain will be closed by this request. (MLTA DTFs must 
not be in the chain. For information regarcing MLTA, see 
IBM System/3 Multiple Line Terminal Adapter RPQ Pro- 
gram Reference and Component Description Manual, 
GC21-7560.) 


After $CLOS is executed, register 2 contains the address 
of the last DTF closed by the macro instruction. 


Considerations for Closing Files 


@ To ensure that all data is transmitted and/or received 
satisfactorily, check (SCHK) for the completion of any 
outstanding !/O requests before you close the associated 
files. 


@ If you have established connection on a switched tine 
with one terminal and want to use the line to communi- 
cate with a different terminal, you must close the file 
for the first terminal before you can establish connect- 
ion with the second terminal. (When you close a file 
for a switched line, MLMP transmits DISC and disables 
the line.) 


@ if you reopen a BSC file that has been closed, record 


length, block length, and all other file attributes are 
the same as they were when the file was closed. 
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MLMP diagnoses many of the errors possible in writing 
macro instructions and in program execution. These 
errors are recorded in mnotes, halts, BSC DTF completion 
codes, and the BSC counters. 


Also provided with MLMP are aids to help you isolate 

undetermined programming problems. The diagnostic 
aids provided are the online test, a trace module, and a 
dump routine. 


Mnotes 


Mnotes are error codes and messages pertaining to macro 
instruction formats (Figure 5). Mnotes are included in 

your assembly listing, printed beneath the macro instruction 
to which the mnotes apply. 


Chapter 4. Diagnostics and Diagnostic Aids 


MLMP Mnote Format 
Column 
lor2 Column 5% 


SCBBSSE Ebmessage 


) 
**#*VMINOTE*** 


SC— Severity code; 04 or 08. Mnotes with a severity code 
of 04 are warnings, and are preceded by an asterisk 
(*) in column 1. Mnotes with a severity code of 08 
are terminal and generate assembly errors. 


B— Indicates that this mnote applies to MLMP. 


System message code; 00, 10, 20, 30, 40, or 50. 

00—Signals miscellaneous errors not covered in the 
following five categories. 

10—MISSING REQUIRED OPERAND. This oper- 
and is always required, or is required by another 
operand that is specified. 

20—CONFLICTING OPERAND(S). This operand 
conflicts with another. 

30—!INVAL!ID PARAMETER IN OPERAND. This 
parameter is not valid in this operand. 

40—CONFLICTING PARAMETER(S). This para- 
meter, as coded to the listed operand(s), conflicts 
with a parameter in another operand. 

50—MISSING OPERAND. This operand is not 
always required, but may be required in this 
instance. 


Note: {tf you get an mnote with a system message 
other than 00, 10, 20, 30, 40, or 50, contact your 


local 1BM representative. 


EE— Explanation code. Explanation codes identify 
specific operands and parameters. 
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Mnote 
Number 


B0001 


BO002 


B0003 


B1001 


B1002 


B1003 


B1004 


B1005 


B1006 


B1007 


B1008 


81009 


B1010 


B1011 


B1012 


B1013 


B1014 


B1015 


B1016 


B1017 


B1018 


B1019 


B1020 


B1021 


B1023 


Related 
Macro 
Instruction 


$DTFB 
$DTFB 
$DTFB 
$POLB 
$POLB 
$POLB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$DTFB 
$CHGB 
$CHGB 
$CHGB 
$CHGB 


$LOGB 


Explanation 


Station {Ds are recommended for switched lines. 

If BUFST is specified, the BUFNO operand is ignored. 

If CONV—Y is specified, the parameter specified in the BUFNO operand should be 1. 
The ID operand is required. 

The LEN operand is required. 

The TERMAD operand is required. 

The RCAD operand is required. 

If TYPE—AC is specified, the DIAL operand is required. 

If TYPE—MC is specified, the TERMAD operand is required. 
If TYPE—CS is specified, the LISTAD operand is required. 
If TYPE—AC is specified, the DIALCT operand is required. 
If RCVID is specified, the RCVCT operand is required. 

{f RCVCT is specified, the RCVID operand is required. 

If SNDID is specified, the SNDCT operand is required. 

If SNDCT is specified, the SNDID operand is required. 

The RECL operand is required. 

The BLKL operand is required. 

The BUFST operand is required. 

The BUFEND operand is required. 

If TYPE-—CS is specified, the ERRLOG operand is required. 
The TYPE operand is required. 

The DTF operand is required. 

The NUM operand is required. 

The CHARS operand is required. 


The NUM operand is required. 


Figure 5 (Part 1 of 3). Explanations for BSC Mnotes 
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Related 


Mnote Macro 

Number Instruction Explanation 

B1024 $LOGB The LEN operand is required. 

B1025 $RFTL The TYPE operand is required 

B1026 $RFTL The LEN operand is required. 

B1027 $RFTL The TERMAD operand is required. 

B1028 $SWIB The SELECT operand is required. 

B1029 $SWIB The LEN operand is required. 

B1030 $SWIB The STATID operand is required. 

B2001 $DTFB If TYPE—AC is not specified, the DIAL operand is invalid. 

B2002 $DTFB tf TYPE—MP is not specified, the TERMAD operand is in- 
valid. 

B2003 $DTFB lf TYPE—CS is not specified, the LISTAD operand is invalid. 

B2004 SOTFB lf TYPE—AC is not specified, the DIALCT operand is invalid. 

B2005 $DTFB If TYPE—AC, MC, AA, or MA is not specified, the RCVID is invalid. 

B2006 $DTFB If TYPE—AC, MC, AA, or MA is not specified, the RCVID 
and RCVCT operands are invalid. 

B2007 $DTFB lf TYPE—AC, MC, AA, or MA is not specified, the SNDID 
and SNDCT operands are invalid. 

B2008 $DTFB If TYPE-—AC, MC, AA, or MA is not specified, the SNDCT 
operand is invalid. 

B2009 $DTFB if RVIADR is specified, the RVIMSK operand is required. 
If RVIMSK is specified, the RVIADR operand is required. 

B2010 $DTFB If TYPE—AA or TYPE—MA is not specified, the SWLIST operand 
is invalid. 

B2011 $DTFB If TYPE—MP is not specified, the AUTORS operand is invalid. 

B2012 $DTFB lf TYPE-—CS is not specified, the POLRES operand is invalid. 

B2013 $RFTL lf LEN—O is specified, the TERMAD operand is invalid and is ignored. 

B3001 $POLB The parameter specified iri the 1D operand must be less 
than X‘FO’. 

B3002 $POLB The parameter specified in the LEN operand must not be 


greater than 7. 


Figure 5 (Part 2 of 3). Explanations for BSC Mnotes 
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Mnote 
Number 


B3003 


B3004 


B3005 


B3006 


B3007 


B3008 


B3009 


B3010 


B3011 


B3012 


B3013 


B4001 


B4002 


B4003 


B4004 


B4005 


B4006 


B5001 


B5002 


Related 
Macro 
Instruction 


$POLB 


$DTFB 


$DTFB 


$DTFB 


$RFTL 


$RFTL 
$RFTL 
$SWIB 
$SWIB 
$SWIB 


$TRTB 


$DTFB 


$DTFB 


S$DTFB 
$DTFB 


$DTFB 


$DTFB 


$RFT 


$SRFT 


Explanation 


OPEN or WRAP must be specified in the LAST operand. 


The parameter specified in the DIALCT operand must not 
be greater than 12. 


The parameter specified in the RCVCT operand must not 
be greater than 15. 


The parameter specified in the SNDCT operand must not 
be greater than 15. 


The parameter specified in the NUM operand must be greater than 0 
and less than 100. 


The parameter specified in the LEN operand must not be greater than 7. 
The parameter specified in the TYPE operand is invalid. 

The parameter specified in the LEN operand must not be greater than 15. 
The parameter specified in the SELECT operand must be less than FO. 
The parameter specified in the LAST operand is invalid. 


The parameter specified in the CODE operand is invalid. 


The parameter specified with BLKL must be greater than or 
equal to the parameter specified with RECL. 


If CONV—Y is specified, the parameter specified with BLKL 
must be equal to the parameter specified with RECL. 


If CONV—Y is specified, 1TB—Y is invalid. 
If CODE—A is specified, TRANSP_Y is invalid. 


If SPAN—Y is specified for a receive file, the RECSEP 
operand is required. 


If neither BUFST and BUFEND nor BUFNO is specified, a default of 
BUFNO-—1 is used. 


If online terminal test type 00 or 01 is requested, the LEN 
operand is required. 


If online terminal test type 00 or 01 is requested, the FROM 
operand is required. 


Figure 5 (Part 3 of 3). Explanations for BSC Mnotes 


Halts Completion Codes 


Figure 6 shows halts issued by MLMP that require an MLMP monitors every receive and transmit operation. 
operator response. For correct responses to the halts MLMP indicates the status of each operation by posting a 
shown in Figure 6, see the appropriate halt/messages completion code in the associated DTF at $BDCMP (see 
manual listed in the Preface. index entry BSC DTF for the format of the BSC DTF). 

If an error occurs during polling or addressing, MLMP 
On the Model 10 and Model 12, MLMP also issues the will retry the operation three times before posting a com- 
halt []. However, this halt does not usually require a pletion code; the error recovery retry count for other 
response, but indicates the check routine is waiting for transmit and receive operations is seven (unless you specified 
an interrupt. See index entry check for 1/0 completion some other retry count in the ERRCT operand of $DTFB 
($CHK) for more information regarding [] and the —see index entry S$OTFB macro instruction). 


check routine. 


The completion codes and the action you should take in 
response to them follow. The codes are divided into two 
groups: those posted after an I/O request ($GETB, $CANB, 
$PUTB, or $RFT) and those posted after a check request 
($CHK). 


Display 


Error in running FDP/Convert 


Error in: 

@ Logging the contro! station terminal 
statistics 

@ Opening a BSC file when: 
1. Buffer area is not large enough 
2. Record length = 0 
Attempting to initialize MLTERFIL 
on a disk file other than F1 
(Model 10 and Model 12) Attempting 
to use line 2 in an RPG I! telecommuni- 
cations program that was compiled on a 
system having only one BSC line. 
DA microcode module cannot be 
found 
DA microcode cannot be loaded 
correctly into adapter 


Perform a manual call 


Perform a manual answer 





Figure 6. MLMP Halts that Require an Operator Response 
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1/0 Request Completion Codes 


Label Value 
$BCREQ xX’‘00' 


$BCUER X’‘41' 


$BCOLT xX‘48' 


$BCIGN X‘4A’ 


$BCCAL X’‘4D’ 


Description 
The request is being processed. Check for I/O completion ($CH K). 


You made an error in your last request. Issue the request again, or issue a request for another 
file. 


The error you made was one of the following: 
@ You did not open the file (SOPEN) before issuing the request. 


@ You issued an initial GET request ($GETB) for a PUT file (FTYP—-TSM in $DTFB), or a 
initial PUT request (SPUTB) for a GET file (FTYP—RCV in $DTFB). 


The request for an online test ($RFT) is invalid. Issue a valid request or close the MLMP 
files (S$CLOS). 


The online test request was invalid for one of the following reasons: 

® You did not open the file (SOPEN) before issuing the request. 

@ You issued an I/O request for the file before you issued $RFT for the file. 
© You issued $RFT for a GET file (FTYP—RCV in $DTFB). 


© The record length specified for the file (RECL operand in $DTFB) is greater than the 
block length specified for the file (BLKL operand in $DTFB). 


@ The message length specified in $RFT is zero (LEN operand). 
Your last request was ignored because: 
@ The previous operation was not complete, 


®@ You issued $PUTB, OPC—EOF as the first request for a file, or as the first request after 
issuing $GETB for the same file, or 


@ You issued $CANB to cancel an operation that was not an initial GET. 


Check for completion of the previous operation ($CHK), or issue a different request for this 
file. 


You issued one of the following invalid requests: 
@ Arequest for a new file before a previous receive file reached end-of-file. 
@ APUT request after a conversational reply was received. 


© AGET request for a conversational transmit file (FTYP—TSM, CONV_—Y in $DTFB) before 
$BCCRP was posted. 


Issue a GET request for the active receive file, a PUT request for the conversational transmit 
file or close the MLMP files ($CLOS). 


Check Completion Codes 


Label Value 
$BCDNE- X’‘40’ 


$BCEOT xX’42’ 


$BCBID X‘43’ 


$BCNEG xX‘44’ 


$BCNON X’‘45’ 


Description 


The requested operation has been completed successfully. If the request was a GET request for 
a nonconversational file, data has been moved from an MLMP I/O buffer to your logical buffer. 
If the request was a PUT request for a nonconversational file, data has been moved from your 
logical buffer to an MLMP I/O buffer. If the request was a GET or PUT request for a conversa- 
tional file (CONV—Y in $DTFB), data has been received or transmitted as well as moved be- 
tween the MLMP I/O buffers and your logical buffer. 


If the request was for an online test ($RFT), the test has been completed. 


Issue the next request, or examine the logged results of the online test (see index entry online 
test). 


Note: Logged online test results are available only to the operator, not the MLMP program. 


End-of-file has been received, or $GETB was cancelled (S$CANB). Issue another request, or 
close the MLMP files ($CLOS). 


Switched line: Invalid 1D exchange. Either your ID or the remote station’s ID is invalid. 
Issue a request for another file or close the MLMP files ($CLOS). 


Multipoint line: Tne |\D requested in the DTF is not in the associated polling list. You can: 


Poll or address a different station. 
© Reinstate polling from the beginning of the list (move X‘FO’ or X‘F1’ to $BDIND). 
@ issue a request for another file. 


® Close the MLMP files (SCLOS). 


All active stations in the polling or addressing list responded negatively. You can: 


© Poll or address a different station (reactivate an entry). See index entry change a polling 
($BCPL). 


@ Issue a request for another file. 


®@ Close the MLMP files ($CLOS). 


Note: $BCNEG also is used to indicate that you received an RVI in response to an addressing 
attempt. Whenever $BCNEG is posted after you try to address a terminal, check RVIADR 
(specified in $DTFB) to determine whether you received an RVI. See index entrv reverse 
interrupt for information regarding RVIs. 

The station whose $POLB ID is in $BDIND did not respond to polling or addressing. You can: 
@ Poll or address a different station. 

@ Issue a request for another file. 


®@ Close the MLMP files (S$CLOS). 


@ Deactivate the polling entry. 
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Label 


$BCCRP 


$BCNDT 


$BCOLT 


$BCNAC 


$BCASC 


$BECNCN 


$BCLST 


$BCERR 


Value 


X'46' 


X'47’ 


x'48" 


X‘49' 


X'4B’ 


X‘4C’ 


X'4E’ 


X'4F’ 


Description 


A record has been received from the remote station and is available in an MLMP I/O buffer 
(conversational reply pending). Issue a GET request for this file. 


No data is available for this conversational GET request (a null message was received). 

An error has occurred in executing a request for online test (SRFT), or an online test request 
you received was not followed by EOT. Check the format of your request (see index entry 
online test) if you just requested an online test. Use the trace module ($$BSTT) if problems 
persist (see index entry trace). 

None of the entries in the polling list is active. You can: 

® Activate an entry and poll a specific terminal. 

® Activate all entries in the list and reinitiate polling from the beginning of the list. 

® Issue a request for another file. 


@ Close the MLMP files ($CLOS). 


An invalid ASCII character exists in the data. Close this file ($CLOS) and issue a request for 
another file, or close all MLMP files. 


Note: \f you are transmitting or receiving ASCII data on a switched line, be sure all station 
IDs have been given in ASCII. If you are a control station transmitting or receiving ASCII 
data, be sure polling and addressing characters have been given in ASCII. 


MLMP has been unabie to establish a connection with the remote station. Issue your last 
request again, issue a request for another file, or continue with other processing. Otherwise, 
close the MLMP files (SCLOS). 

You did not send or receive a block of data within the time specified in the active DTF. 
(specified in the DLYCT operand of $DTFB). Issue a request for this or another file, or close 
the MLMP files ($CLOS). 


MLMP encountered a permanent error condition. Some permanent errors are:. 
® EOT received in response to data transmitted. 


@ EOT received in response to an addressing attempt. 


Forward abort received. That is: 


Received TTD, jEOT or DISC 
‘ / 
\ 

Transmitted NAK 


EOT or DISC is transmitted after an error recovery retry count has been exceeded. 


Label Value Description 


$BCTIM xX’‘50’ The remote station does not respond to attempted data transfer. Issue a request for this or 
another file, or close the MLMP files ($CLOS). 
Note: X‘50' posted in a console DTF indicates that the operator pressed the REQ key (Model 10 
and Model 12). X‘50‘ posted in a dummy DTF indicates that the operator pressed the PF9 key 
(Model 15). 


$BCDAT X‘51' Data was received incorrectly (data check). Issue your last request again, or issue a request 
for another file. Otherwise, close the MLMP files ($CLOS). 


$BCLOS X‘52’ Data received was lost because it exceeded the size of the input buffer, had no ending control 
character, or because no record separator was found within two contiguous blocks of-spanned 
records. Issue your last request again, or issue a request to another station. Otherwise, close 
the MLMP files ($CLOS). 


$BCCON X‘53’ The switched line connection with the remote station has been lost, or DISC was received in 


response to text. Issue your last request again, or issue a request for another file or station. Other- 


wise, close the MLMP files ($CLOS). 


$BCRSP  X‘54’ An invalid response was received from the remote station. Issue your last request again, or 
issue a request to another station. Otherwise, close the MLMP files ($CLOS). 


$BCADP  X’‘55’ The BSCA is not working correctly (adapter check). Issue your last request again, or issue a 
request for another file. Otherwise, close the MLMP files ($CLOS). 


Note: The BSC line is disabled if: 
@ The connection was lost ($BCCON completion code condition), 
@ DISC was received ($BCCON completion code condition), or 


@ Normal end of file was received ($BCEOT completion code condition). 


$BCCMP- X’‘56’ None of the DTFs in the checklist indicates completion, but you have regained control as you 
requested in the first $CKL macro instruction (RTN—Y). See index entry $CKL macro instruc- 
tion. 


$BCCMP is posted in the last DTF in the checklist. 
$BCACD- X‘57' All the DTFs in the checklist are inactive or have been exempted from the test for completion. 


$BCACD is posted in the last DTF in the checklist. 
$BCRLE X’‘58’ The record received was larger than the specified maximum record length (RECL in $DTFB). 
Note: This completion code applies only if you are receiving spanned records separated by 


record separators. 
Note: All data in the MLMP I/O buffers at the time one of the following completion codes is posted may be lost: 


$BCASC $BCTIM $BCCON $BCRLE 
$BCLST $BCDAT $BCRSP 
$BCERR $BCLOS $BCADP 


The amount of data in the MLMP I/O buffers at any given time depends on record jength, block size, buffer size, 
and the number of buffers you are using, as well as the number of I/O requests you have issued. See index entry 


move mode. 
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BSC Counters 


MLMP compiles the following statistics as it monitors re- 
ceive and transmit operations: 


1. Number of text blocks sent successfully. 
2. Number of text blocks received successfully. 


3. Number of negative acknowledgements (NAK) re- 
ceived in response to text sent. 


4. Number of data checks that occurred on text 
received, 


5. Number of forward aborts received. A forward abort 
received is: 


Received TTD, jEOT or DISC 


‘ ‘ 
\ / 
Transmitted NAK 


6. Number of EOTs ($BCERR completion code) re- 
ceived in response to data transmitted. 


7. Number of adapter checks that occurred while 
transmitting. 


8. Number of adapter checks that occurred while 
receiving. 


9. Number of invalid responses received to text 
transmitted. 


10. Number of inquiries (ENQ) sent in response to posi- 
tive acknowledgements (ACK). 


11. Number of blocks received from which data was lost. 


12. Number of disconnect timeouts and abortive (cancel) 
disconnects. 


13. Number of timeouts that occurred while receiving 
text. 


For multipoint control stations the following statistics are 
also recorded (see the ERRLOG operand of the $DTFB 


macro instruction): 


1. Number of unsuccessful transmissions for each ter- 
minal address. 


2. Number of successful transmissions for each ter- 
minal address. 
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BSC counters and statistics are recorded in main storage 
whenever a BSC file is closed or before an online test. All 
BSC counters and statistics are logged to disk at end-of-job. 
After the BSC program is terminated, BSC counters and 
statistics can be displayed by the Device Counter Log-out 
program ($$BSDL). For operating procedures required to 
display the statistics, see the appropriate system operators 
guide listed in the Preface. 


BSCA Terminal Log Area 


You must provide a permanent file on F1 for logging con- 
trol station terminal statistics (see index entry Terminal 
Statistics Logging Area). The permanent file, named 
MLTERFIL, requires one track. Part of MLTERFIL com- 
prises the BSCA Terminal Log Area and is used for logging 
the control station terminal statistics. Another part of 
MLTERFIL is used for logging MLTA statistics if MLTA 

is present (see /BM System/3 Multiple Line Terminal Adapt- 
er RPQ Reference and Component Description Manual, 
GC21-7560). 


Initializing MLTERFIL 


To initialize MLTERFIL, MLMP Provides, in the object 
library, module $$BSFi. The OCL required to initialize 
MLTEREFIL is: 


/1 LOAD $$BSFI,unit 


// FILE NAME-—MLTERFIL,UNIT—F1,PACK—pack, 
TRACKS—1,LOCATION—track number (optional), 
RETAIN—P 


// RUN 


MLTERFIL must be initialized after BSCA system genera- 
tion, and before using MLMP or MLTA. If MLMP cannot 
find MLTERFIL on F1 while transmitting or receiving 
data for a control station, MLMP issues the Y6 halt. For 
a complete description of the Y6 halt, see the appropriate 
halt/messages manual listed in the Preface. 


Note: MLTERFIL need be initialized only once to 
accomodate both MLMP and MLTA statistics. Don‘t 
initialize the file twice if you use both MLMP and MLTA. 


Online Test 


The ontine test enables you, or an IBM customer engineer, 
to test a line connection without interrupting data transfer 
on the other line. The test consists of sending a known mes- 
sage over a line, then determining whether the message was 
received accurately. When the test is completed, results are 
logged as follows: (see index entry online test results). 


@ Model 10 and Model 12 — Halt/Syslog is called to log 
the online test results on the system log device. 


@ Model 15 — Online test results are logged to the System 
History Area (SHA) and wil! be printed only if the print- 
er is logged. 


Requesting Online Test 
To request an online test: 


1. Build a test parameter list (see index entries SRFTL 
macro instruction and online test parameter list). 


2. Provide a test message if one is required (see index 
entry online test requests). 


3. ‘Issue the $RFT macro instruction 


4. Check the I/O request completion code to deter- 
mine whether the request was accepted (see index 
entry completion code). 


5. Check for completion of the test (SCHK). 


Note: The $BCDNE completion code, after an on- 
line test request, indicates completion of the test; 
$BCDNE does not indicate that the line is okay. To 
determine what happened on the line during the 
test, the operator must examine the logged results of 
the test (see index entry online test results). 


$RFT Macro Instruction: The format of the $RFT macro 
instruction is: 









{name] $RFT PARM-—address [,-/ ROM—address} 
[,LEN—decdig] {,DTF—address] 


[,REJECT—address} 






PARM—address 


Specifies the symbolic address of the first byte of the on- 
line test parameter list. See index entry online test param- 
eter list for the format. 


FROM—adgress 


Specifies the symbolic address of the first byte of the test 
message, including control characters. Use this operand only 
for test types 00 and 01 (see index entry on/ine test param- 
eter list for test type descriptions). 


LEN—decdig 


Specifies in decimal the length of the test message, includ- 
ing control characters. See index entry online test param- 
eter list for restrictions on the length of a test messaae. 

Use this operand only for test types 00 and 01 (see index 
entry online test parameter list for test type descriptions}. 


DTF—address 


Specifies the symbolic address of the PUT DTF (FTYP-- 
TSM) for which the online test request is issued. If not 
given, the address of the DTF is assumed to he in register 2. 
After $RFT is executed, register 2 contains the address of 
the DTF for which the online test request was issued, 


REJECT—address 


Specifies the symbolic address of a user routine to receive 
control if the online test request cannot be accepted by 
MLMP. You must provide the routine. 


If the REJECT operand is not specified, check for the 
$BCREQ DTF completion code after each online test re- 
quest to determine whether or not the request was accept: 
ed. See index entry completion code. 


Accepting an Online Test Request 


Valid online test requests transmitted from a remote ter- 
minal are accepted when you issue an initial GET request. 
MLMP then performs the test automatically, logs the re- 
sults to your system logging device (see index entry online 
test results), and reissues the GET request to receive data. 
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If System/3 does not recognize an online test request you 
receive, the request is passed to you as data. The online 
test types recognized by System/3 are: 


Test 
Type Description 


00 Receive and acknowledge the test message 
the number of times specified in bytes YY 
of the online test parameter list (see index 
entry online test parameter list). The for- 
matted test request must not be more than 
300 characters long. See index entry online 
test requests. 


01 Transmit the test message the number of 
times specified in bytes YY of the online 
test parameter list (see index entry online 
test parameter list). The formatted test re- 
quest must not be more than 300 characters 
long. See index entry online test requests). 


06 Transmit 36 alphameric characters, A-Z and 
0-9, the number of times specified in bytes 
YY of the online test parameter list (see in- 
dex entry online test parameter list). Trans- 
mit the characters in ASCII (ASCII adapter 
only). 


14 Transmit 36 alphameric characters, A-Z and 
0-9, the number of times specified in bytes 
YY of the online test parameter list (see in- 


dex entry online test parameter list). Transmit 


the characters in EBCDIC (EBCDIC adap- 
ter only). 


23 3270 basic EBCDIC test message: 


This test checks all alphameric characters 

at a display station or printer. {t checks the 
use of the WCC to sound the audible alarm 
and allows attribute field specifications to 
be checked at a display station. It starts a 
printer, printing only 40 characters to a 
line. 
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Test 
Type 


24 


25 


26 


27 


28 


29-34 


Description 


3270 Model 1 align EBCDIC test pattern: 


This test checks position alignment for the 
480-character display station. It also checks 
the WCC to sound the audible alarm. It 
starts a printer, printing 40 characters to a 
line. 


3270 Model 2 align EBCDIC test pattern: 


This test checks position alignment for the 
1920-character display station. It also checks 
the WCC to sound the audible alarm. It will 
start a printer, printing 80 characters to a 
line. 


3270 orders EBCDIC test message: 


This tests 3270 orders (SF, SBA, etc.), 
checks the WCC to sound the audible alarm, 
and uses display and intensified brightness. 
It starts the printer, printing 64 characters 
to a line. 


3270 EBCDIC Universal Character Set test 
pattern: 


This test uses the Erase/Write command, dis- 
playing the Universal Character Set in 
EBCDIC. It checks the WCC to start the 
printer, sound the audible alarm (on a dis- 
play), and print 132 characters per line on 
the printer. NL and EM are also tested on 

a printer. Display intensity is used. The SF, 
NL, EM, and IC orders are used. 


3270 NL/EM EBCDIC test pattern: 


This test is mainly intended to test the end 
of message (EM) order and multiple new 
line (NL) orders on the printer. The WCC is 
checked to start the printer, sound the alarm 
(on a display), and print 132 characters to 

a line on the printer. 


3270 ASCII test patterns: 


These tests correspond to tests 23-28 except 
that transmission is in ASCII. 


Online Test Results 


Results are logged in one of two formats, depending on 
whether the test message (not the test request) was trans- 
mitted or received. 


Test Message Transmitted: 


* BSC ONLINE TEST, LINE }; or 2} (TERMINAL ADDR HE X hex} 
MESSAGE TYPE tt, MESSAGE COUNT cc 
ACK RCVD NAKRCVD TIMEOUT INVLD MSG 


xX xX xX XX 


“END ONLINE TEST 


TERMINAL ADDR HEX hex identifies the terminal to 
which the test message was sent if the logging station is a 
control station (TYPE—CS in $DTFB). 


tt identifies the test message type. See index entry on/ine 
test parameter list for a description of the test types. 


cc is the number of times the test message was to be trans- 
mitted. The message count is specified in the online test 
parameter list. 


ACK RCVD) xx is the number of times ACK was received 
as a reply to the test message. 


NAK RCVD xx is the number of times NAK was received 
as a reply to the test message. 


TIMEOUT xx is the number of 3-second timeouts recorded 
during the online test by the BSCA. 


INVLD MSG xx is the number of invalid replies received 
in response to test messages sent. 


Test Message Received: 


“BSC ONLINE TEST, LINE} or 2{ITERMINAL ADDR HE X hex} 
MESSAGE TYPE tt, MESSAGE COUNT cc 
TXT RCVD DATA CHK TIMEOUT INVLD MSG 


XX XX XX XX 


* END ONLINE TEST 


TERMINAL ADDR HEX hex identifies the terminal that 
transmitted the test message if the logging station is a con- 
trol station (TYPE—CS in $DTFB). 


tt identifies the test message type. See index entry on/ine 
test parameter list for a description of the test types. 


cc is the number of times the test message was to be trans- 
mitted. The message count is specified in the online test 
parameter list. 


TXT RCVD xx is the number of times the test message was 
received correctly. 


DATA CHK xx is the number of data checks recorded dur- 
ing the online test by the BSCA. 


TIMEOUT xx is the number of 3-second timeouts recorded 
during the online test by the BSCA. 


INVLD MSG xx is the number of test messages received in- 
correctly for which a data check or timeout was not re- 
corded. 


An online test only indicates line conditions existing at the 
time of the test. If the test reveals the presence of line pro- 
blems, you must decide whether the probability of success- 
ful transmission is great enough to justify continued trans- 
mission over the fine. 


To discover significant trends in the appearance of line 
problems, consider online test results in conjunction with 
the BSC counters and control station terminal statistics 
(see index entry BSC counters). 


Online Test Considerations 


If you want to request an online test or expect to receive 
a request for an online test, consider that: 


@ The MLMP I/O buffers must be large enough to accomo- 
date an online test request. See the RECL and BLKL 
operands in the $DTFB macro instruction, and index 
entries on/ine test requests and MLMP I/O area. 


© No data except the online test message can be sent or 
received over a line that is being tested until the online 


test is complete. 


@ An online test request that is not recognized by MLMP 
is accepted as data and moved to your logical buffer. 


Diagnostics and Diagnostic Aids 53 


Page of GC21-75734 
Issued 25 November 1977 
By TNL: GN21-5587 


Considerations unique to requesting an online test are: 


@ An online test request for System/3 must be the first 
and only text message transmitted over a line. An on- 
line test request transmitted to System/3 after text has 


been sent will be received by System/3 and passed to 
you as data. 


@ You must transmit EOT after transmitting an online 
test request to System/3 if the message type is not OO. 
If you transmit data other than the test message before 
you send EOT, System/3 aborts transmission and posts 
the System/3 user with the $BCOLT completion code 
(see index entry cornpletion code). The data transmitted 
before EOT is lost. 


@ $RFT should not be used unless the remote device can 
accept remotely initiated online test requests. 


@ $RFT must be issued only for a PUT DTF (FTYP--TSM 
in $DTFB) that is opened but not being used for data 
transfer. 


© A multipoint control station (TYPE—CS in $DTFB) 
can only request test type O00 for a tributary station. 
See index entry online test parameter list for a 
description of the test types. 


@ A System/3 multipoint tributary (TYPE—MP in $DTFB) 
cannot request that an online test be sent to another 
System/3 tributary in the network. 


See also index entry how to request an online test from a 
3270. 


Trace 


If you are familiar with System/3 BSCA hardware and BSC 
line control procedures, you may find a record of the BSCA 
1/0 sequence helpful in isolating an MLMP programming 
problem. MLMP provides a trace module ($$BSTT) to 
record !/O information after each BSCA interrupt. This 
information can be examined by you or an 1BM customer 
engineer to diagnose a problem. 


Once the trace module is included in your program, each 
MLMP I/O operation calls Trace to record the event in a 
trace table. The format of the table is shown in Appendix 
C. Dump the trace table when you are ready to examine the 
information recorded in it. You can use the $SNAP macro 
instruction to dump the table (see index entry SSVAP 
macro instruction). Dump main storage from symbolic 
address MTBSML to symbolic address MTBSMM, the 
beginning and ending addresses of the trace table. 
{MTBSML and MTBSMM each require that an EXTRN 

be defined in the program requesting the dump.) 
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Include Trace, Assembler 


Include the trace module in your program by specifying 
EXTRN $$BSTT in your program, or by placing an IN- 
CLUDE card in the linkage editor input deck: 


// INCLUDE NAME—$$BSTT,UNIT—xx 


(xx is the unit name R1, F1, R2, or F2) 


Note: \f you use an INCLUDE statement to call the trace 
module, the overlay linkage editor generates a name not 
referenced error message (OL031). This error does not 
affect the output of the linkage editor, however, and should 
be ignored. 


Include Trace, RPG II 


lf you are running under RPG II as a subroutine, $$BSMT 

is automatically link-edited as a dummy trace module. If 
you want to include the actual trace module in your pro- 
gram you must rename the dummy and actual trace modules. 
After renaming the modules, recompile your program to 

get the actual module link-edited. The following statements 
are used to rename the trace modules: 


// LOAD $MAINT,xx 
// RUN 


// RENAME FROM—xx,LIBRARY—R,NAME-$$BSMT, 
NEWNAME-—S$BSAV 


// RENAME FROM—xx,_LIBRARY—R,NAME—$$BSTT, 
NEWNAME-—S$BSMT 


// END 
(xx is the unitname R1, F1, R2, or F2) 


To replace the actual trace module with dummy trace 
module: 


}. Rename the modules: 


// LOAD $MAINT,xx 

// RUN 

// RENAME FROM—xx,LIBRARY—R,NAME-—$S$BSMT, 
NEWNAME—S$$BSTT 

// RENAME FROM—xx,LIBRARY—R,NAME-—$SBSAV, 
NEWNAME—-$$BSMT 

// END 


(xx is the unitname R1, F1, R2, or F2) 


2: Recompile your program. 


Trace Considerations 


© ITB interrupts, BSCA enabling operations, and BSCA 
disabling operations are not recorded by Trace. 


@ Trace entries are recorded independently of your pro- 
gramming operations. That is, entries are recorded when 
an interrupt occurs regardless of current operations 
occurring in your program, and can be recorded at any 


time, even during a snap dump (see following discussion). 


Consequently, be aware that entries may have been made 
to the trace table after a request to dump the table. 


© Trace requires 512 bytes of main storage. 

@ For program efficiency, include Trace in your program 
only when you are trying to diagnose a problem. 

Snap Dump Main Storage ($SNAP) 

The $SNAP macro instruction generates linkage to a system 

storage dump routine. You must provide dump identifica- 

tion and dump limits. The output from the dump routine 

is printed on the system logging device. Output consists 

of: 

1. The dump identification. 


2. The contents of registers 1 and 2. 


3. The address of the next sequential instruction after 
the $SNAP macro instruction. 


4. The contents of main storage identified by the dump 
limits. 


Since a printer is much faster than the console, it is re- 
commended that the system logging device be a printer 
when you intend to use $SNAP. 


$SNAP Macro Instruction Format 


$SSNAP iD—hex,START—address, 
END—address 
ID—hex 


Specifies a 2-byte parameter to identify the dump. The 


parameter is printed at the beginning of the dump output. 


START-—address 


Specifies the symbolic address of where the dump should 
begin. 


END—address 


Specifies the symbolic address of where the dump should 
end. 
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SYSTEM CONFIGURATION 

The minimum system configuration and optional device 
support for MLMP is: 

Model 8 

The minimum Model 8 configuration is: 

@ 5408 Processing Unit Model A14 (16K bytes) 

e@ 5444 Disk Storage Drive Model A1 

® 5203 Printer Model 1 


@ 5471 Printer-Keyboard Model 1 or Directly attached 
3741 Data Station Model 1 


@ Binary Synchronous Communications Adapter (BSCA) 
Local Display Adapter, or Integrated Communications 
Adapter (ICA) 


‘ 


Additional devices supported for the Model 8 are: 


@ 5408 Processing Unit Model A16 (32K), A17 (48K), 
or A18 (64K) 


@ 5444 Disk Storage Drive Model A2 or A3 

@ 5203 Printer Model 2 or 3 

@ Binary Synchronous Communications Adapter (BSCA), 
Local Display Adapter, or Integrated Communications 


Adapter (ICA) 


Note: Two adapters can be present. The local display 
adapter, ICA, and BSCA-2 are mutually exclusive. 


@ Directly attached 3741 Data Station Model 2 or 
Programmable Work Station Model 3 or 4 


Chapter 5. Requirements and Considerations 


Model 10 


The minimum Model 10 configuration is: 


5410 Processing Unit Model A13 (12K bytes) (if not a 
control station, a Model A174 (16K) is required for a 
control station) 

5444 Disk Storage Drive Model 1 

5424 MFCU Model A1 


5203 Printer Model 1 


Binary Synchronous Communications Adapter (BSCA), 
or Local Communications Adapter (LCA) 


Additional devices supported for the Model 10 are: 


5410 Processing Unit Model A14 (16K), A15 (24K), 
A16 (32K), or A17 (48K) 


5444 Disk Storage Drive Model 2,3, A1, A2, or A3 
5445 Disk Storage Model 1, 2, or 3 


3410/3411 Magnetic Tape Subsystem Models 1, 2, 
and 3 


1442 Card Read Punch Model 6 or 7 

5471 Printer-Keyboard 

5203 Printer Model 2 or 3 

1403 Printer Model 2 or N1 

5424 MFCU Model A2 

Binary Synchronous Communications Adapter (BSCA), 
or Local Communications Adapter (LCA) (both can be 


present) 


Directly attached 3741 Data Station Model 1 or 2, or 
Programmable Work Station Model 3 or 4 
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Model 12 @ 5424 MFCU Model A1 or A2, 2560 MFCM Moadet 
Al or A2 
The minimum Model 12 configuration is: or 


1442 Card Read Punch Model 6 or 7 
@ 5412 Processing Unit Mode! B16 (32K bytes) 
® 1403 Printer Model 5 
@ 3340 Direct Access Storage Facility Model C2 
@ Binary Synchronous Communications Adapter (BSCA), 
@ 5424 MFCU Model A1 Display Adapter, or Local Communications Adapter 
(LCA) 
@ 5203 Printer Model 1 
Additonial devices supported for the Model 15 are: 
@ Integrated Communications Adapter (ICA), Local 


Display Adapter, or Binary Synchronous Communica- @ 5415 Processing Unit Model A18 (64K), A19 (96K), or 
tions Adapter (BSCA) A20 (128K) (with 5444/5445 disk units) 
Additional devices supported for the Model 12 are: @ 5415 Processing Unit Model B18 (64K), B19 (96K), or 


B20 (128K) (with 3340 disk units) 
@ 5412 Processing Unit Model B17 (48K) or B18 (64K) 


© 5415 Processing Unit Model C21 (160K), C22 (192K), 


@ 3410/3411 Magnetic Tape Subsystem Models 1, 2, and 3 C23 (224K), or C24 (256K) (with 3340 disk units) 
@ 1442 Card Read Punch Models 6 or 7 @ 5415 Processing Unit Model D19 (96K), D20 (128K), 
D21 (160K), D22 (192K), D23 (224K), D24 (256K) 
@ 5471 Printer-Keyboard (with 3340/3344 disk units), 025 (384K), or 
D26 (512K) 


@ 5203 Printer Model 2 or 3 


@ 3340 Direct Access Storage Facility Model B1 or B2 


© 1403 Printer Model 2, 5, or N1 (available with 5415-B, -C, and -D models) 


@ 5424 MFCU Model A2 @ 5444 Disk Storage Drive Model A3 (available with 
5415-A models) 
@ Binary Synchronous Communications Adapter (BSCA), 
Local Display Adapter, or Integrated Communications @ 5445 Disk Storage Model 1, 2, or 3 (available with 
Adapter (ICA) 5415-A models) 
Note: Two adapters can be present. The local display @ 3410/3411 Magnetic Tape Subsystem Models 1, 2, 
adapter, ICA, and BSCA-2 are mutually exclusive. and 3 
@ Directly attached 3741 Data Station Model 1 or 2 or @ 1403 Printer Model 2 ar N14 


Programmable Work Station Model 3 or 4 
@ 3284 Printer 


Model 15 @ 2501 Card Reader 
The minimum Model 15 configuration is: @ Interval Timer 
®@ 5415 Processing Unit Model A17 (48K bytes) and a @ Directly attached 3741 Data Station Model 1 or 2 or 
5444 Disk Stoarge Drive Model A2 Programmable Work Station Model 3 or 4 
or 
5415 Processing Unit Model B17 (48K bytes) and a @ Binary Synchronous Communications Adapter (BSCA), 
3340 Direct Access Storage Facility Model A2 Display Adapter, or Local Communications 


Adapter (LCA) 
@ 3277 Display Station (CRT/Keyboard) 
Note: Two adapters can be present. 


Storage Requirements 


MLMP resides in the Model 10 Disk System, Model 12, or 
Model 15 libraries and requires: 


0.25K in the system nucleus. (The module $$BSIN is 
required in main storage at execution time — Model 
10 only.) 


5.25K of main storage to include: 


$$BMS—MLMP Data Management 
$$BMCH—Check Routine 

$$BSLG—Terminal Statistics Logging Routine 
$$BSAT~—Line 2 Work Area 


Additional main storage requirements for MLMP are: 


0.25K for $$BSMD if AUTORS-Y is specified in 
$DTFB 


2.00K for $$BSMA, $$BSMB, $$BSMC, and $$BSMF 
if POLRES-~Y is specified in $DTFB 


0.50K for $$BSID if the display adapter is supported 
0.75K for Trace ($$BSTT) if Trace is used 


Main storage for user’s code, including t/O buffers, DTFs, 
polling lists, $GETBs, $PUTBs, etc. 


Two cylinders of disk storage space for object code. 


Five tracks of disk storage space in the source library for 
MLMP macro instructions. 


One track of disk storage space for error logging. See 
index entry BSCA Terminal Log Area. 


Programming Requirements 


A. Model 10 


IBM System/3 Model 10 Disk System Management 
(5702-SC1). 


IBM System/3 Assembler (5702-AS1) or its equivalent. 


IBM System/3 Model 10 Disk System Macros Feature 
(Feature Number 6020 or 6021). 


IBM System/3 Model 10 Disk System Overlay Linkage 
Editor (Feature Number 6026 or 6027), unless MLMP 
programs are written as subroutine to an RPG II 
program. 


B. Mode! 12 


@ IBM System/3 Model 12 Disk System Management 
(5705-SC1). This includes the System Macros and Over- 
lay Linkage Editor. 


@ IBM System/3 Assembler (5705-AS1) or its equivalent. 
C. Model 15 


@ IBM System/3 Model 15 Disk System Management 
(5704-SC1 or 5705-SC2). This includes the System 
Macros and Overlay Linkage Editor. 


@ IBM System/3 Assembler (5704-AS1 or 5704-AS2) or 
its equivalent. 


MLMP Programming Considerations 


@ The user must define one EXTRN in every MLMP pro- 
gram: $$BSMS. Other required EXTRNs are generated 
by the MLMP macro instructions when MLMP programs 
are assembled. 


@ MLMP Data Management ($$BSMS), BSC DTFs, MLMP 
1/O areas, and user logical buffers must be in the root seg- 
ment. They must not be overlaid. The Allocate, Rollout, 
and Tape End of Volume functions cannot be performad 
while BSCA files are open. See /BM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561, 


lf AUTORS-Y is specified in a $OTFB macro instruction, 
$$BSMD must be in the root segment. If POLRES_Y is 
specified in a $DTFB macro instruction, $$BSMA, $$BSMB, 
and $$BSMF must be in the root segment. 


@ Binary and packed decimal data must be transmitted in 
transparent mode {EBCDIC only). 


@ A System/3 RPG II program using the RPG I Telecom- 
munications Feature must not call an assembler subrou- 
tine to use a BSCA. (For information on writing an assem- 
bler subroutine for an RPG II program, see /BM System/3 
Basic Assembler Reference Manual, SC2 7509.) 


The MLMP user should also be familiar with the unique BSC 
characteristics of the terminals to be used. Some BSC char- 
acteristics are listed by machine in Appendix A. For more 
information regarding the terminals that can be used with 
MLNP, see the publicaitons listed in the front of this manual. 
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iBM 2972 BANKING TERMINAL SYSTEM 


@ Data received from the 2972 includes the terminal ID 
and keyboard shift characters. 


® Data transmitted to the 2972 must include keyboard 
shift characters for upper case and lower case as well 
as NL, HT, and other appropriate commands. 


® More than one record can be transmitted to the 2972 
before you have to transmit a new fine command. 


® if you've been transmitting to one 2980, you must trans- 
mit EOT before transmitting data to another 2980 
{see index entry terminating transmit files). 


For more information regarding the 2972, see Component 
Description: 1BM 2972 Models 8 and 71 General Banking 
Terminal Systems, GL27-3020. 


IBM 3270 INFORMATION DISPLAY SYSTEM 


Before writing an application program using a 3270, you 
must understand the 3270's physical characteristics and 
capabilities as they are described in /BM 3270 Information 
Display System Component Descrip tion, GA27-2749. 

After reading the 3270 component description, use this 
section: as a guide to coding MLMP macro instructions to 
control and define 1/O for a 3270. Use the 3270 compo- 
nent description to construct data areas (called data stream) 
to send to a 3270 to display an image or print a line, and 

to interpret data streams received from a 3270. Data 
strearn formats are shown in this section, but you must have 
read the component description to understand the terms 
within the formats. 


You must also understand binary synchronous telecommuni- 
cations procedures as described in General Information: 
Binary Synchronous Communications, GA27-3004. 


A sample MLMP program that communicates with a 3270 
application is shown in Appendix B. 


Appendix A. Device-Dependent Considerations 


Polling/Addressing a 3270 
There are two kinds of polling for remote 3270 devices: 


©@ General polling. In a general poll a response is sought 
from any device attached to a particular control unit; 
the control unit has the responsibility of querying each 
device in turn for readiness to provide input. 


@ Specific polling. In a specific poll a particular device 
attached to a particular control unit is queried for a 
response. 


Addressing (station selection) is always directed to a speci- 
fic device. 


Polling/addressing list entries are derived from the TERMAD 


operand in $POLB macro instructions (see index entry 
$POLB macro instruction) and are in the following formats: 


General Polling: 


Cu CU 
Address Address 7F 7F 


Specific Polling and Addressing: 


CU Cu Device Device 
Address Address Address Address 


The control unit and device addresses are repeated because 
binary synchronous multipoint communications for the 
3270 uses double addressing as a check against intermittent 
transmission line errors. The hexadecimal values for de- 
fining a polling/addressing list depend on which control 
unit and device are specified and whether the transmission 
is to be in EBCDIC or ASCII. 


Usually, general polling lists are kept separate from specific 
polling and addressing lists. 


Note: The $CANB macro instruction can be used to ter- 
minate polling. See index entry $CANB macro instruction. 
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Reading From and Writing To a Remote 3270 


1/0 control of a remote 3270 is maintained by a combina- 
tion of $GETB and/or $PUTB macro instructions, $CHK 
macro instructions, and, in some cases, by special charac- 
ters in the data stream called an escape command sequence. 
Details of initiating data transfer to and from the 3270 are 
discussed under Read Operations and Write Operations, 
following, and summarized in Figure 8. 


In the discussion that follows of read and write operations, 
the transmission control characters (STX, ETX, etc.), de- 
vice control characters, and field definition information are 
shown in data stream formats; these characters are described 
in /BM 3270 Information Display System Component Des- 
cription, GA27-2749. 


Read Operations 

Reading from a remote 3270, you can: 

@ Read modified fields from a display station buffer after 
a terminal operator has completed his entry and caused 


an attention (for instance, by pressing the ENTER key). 


@ Read from a display station buffer fields modified by 
an operator without waiting for an attention indication. 


@ Read only those modified fields beginning at a specified 
buffer location. 


@ Read the entire buffer contents, both modified and un- 
modified data, including attribute characters. 


@ Read the buffer contents, both modified and unmodified 
data, including attribute characters, beginning at a speci- 
fic buffer location. 


(Attribute characters and modified and unmodified data 
are described in the 3270 component description.) 


Each of the following five read operations can be terminated 


by transmitting an RVI to the terminal (see index entry 
reverse interrupt). 
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Read Modified Fields after Operator Action: The basic 
means of reading data entered by a terminal operator, this 
function is performed by issuing an initial GET request 
($GETB) and at least one subsequent GET request. The 
first $GETB initiates a general or specific polling sequence. 
Data is read by the first and subsequent GET requests 
when a terminal is encountered at which the operator has 
done one of the following: 


@ Pressed one of these keys: 


ENTER 

PF (program function) keys 1-12 
PA (program attention) keys 1-3 
TEST REQUEST 

CLEAR 


@ Selected a detectable field with the selector pen. (See 
the Component Description for establishing a detectable 
field.) 


@ Inserted a card in the operator identification card 
reader. 


All modified fields are read from the termina! buffer into 
the receiver‘s |/O buffers. A maximum of 256 bytes of 
data, including control characters, are read for each GET 
request. By issuing $GETB with OPC—BLK specified (see 
index entry $GETB macro instruction) and monitoring 
the logical buffer for ETX (meaning that no more message 
blocks remain to be read), you can determine whether all 
available data has been read. 


After the initial $GETB, at least one more $GETB must 
be issued. If all data is read on the first $GETB, the next 
$GETB must be issued to be posted with end-of-file 
($BCEOT completion code). The message read by the 
initial $GETB will be in one of the formats shown in 
Figure 7. (See the 3270 component description for an ex- 
planation of the AID, cursor address, SBA, and other data 
stream characters illustrated in Figure 7.) 


The 1D byte in the BSC DTF ($BDIND) identifies the poll- 
ing list entry of the responding terminal. Either $BDIND 
or the control unit and device address bytes in the data 
stream may be used to determine which device responded 
postively to polling. 













If the operator presses the ENTER key, a PF (program function) key, or selects a detectable fieid with the selector pen, 


the message read is in this format (assuming the terminal buffer is formatted): 
Buffer 
Address 
















cu Device Cursor Buffer 


If, in the above case, no fields were modified by the operator (or already set to be modified by the program), the format 
of the input message is: 


cu Device Cursor 
T 
If the terminal buffer is unformatted, the input message is: 
cu Device Cursor ETB 


If the operator presses the CLEAR key or presses PA (program attention), the input message is: 


cu Device 
STX esac ain | etx 


\f a card or cards are read by means of the identification card reader, the input message is: 


cu Device 0-37 


If a test request message is entered, the input message is in this format (although the application is not normally aware of it): 


fel = Le [elm 


If a status message is read (see Figures 9 and 10), the message received is in the following format: 


cu Device Sense/ 
TX 
Note: Your program must be prepared to receive status messages. 


In all of the above cases, at least one $GETB is issued to read successive blocks of the message if the message ends with ETB, 
or to get an EOF completion if the message ends in ETX. 


A message block received as the result of subsequent $GETBs has this format (unless it is unformatted): 


Buffer Buffer ETB { 
sm] Dp [see [aire] toe [oem [Sau \) [ier 





Figure 7. Message Formats Received from the 3270 
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Read Modified Fields: This function is similar to reading 
modified fields after operator action except that the oper- 
ation is directed to a specific device and is performed 
immediately; it does not depend on an attention-causing 
action by the terminal operator. The purpose of this pro- 
cess is to read all modified fields in the device buffer. 


Read modified fieids by issuing: 


@ A$PUTB macro instruction with OPC—EOB specified 
(see index entry $PUTB macro instruction), and 


® One or more $GETB macro instructions with OPC-BLK 
specified (see index entry $GETB macro instruction. 


When $PUTB is issued, the logical buffer must contain: 


Record length (SBDREL) must be 2, and the DTF must be 
a conversational DTF (CONV—Y sepcified in $DTFB). If 
the $BCCRP completion code is posted after checking the 
PUT request for completion ($CHK), issue $GETB. 


Only modified fields are read. Issue $GETBs to read all 
the modified fields in the terminal buffer. That is, issue 
$GETB until the $BCEOT completion code is posted. 


The input data stream received will be in one of the formats 
shown in Figure 7. 


Read Modified Fields from Position: This function reads 
all modified fields beginning at a specified position in the 
device buffer. As the with read modified fields function, 
no Operator attention-causing action is required. The pro- 
cess is directed to a specific device. It can be used in a 
manner similar to that for reading modified fields except 
that the program selects only a certain portion of the screen 
(terminal buffer) to read, even though the terminal opera- 
tor may have modified other portions of the screen. 


Read modified fields from position by issuing: 


@ A$PUTB macro instruction with OPC—EOB specified 
(see index entry $PUTB macro instruction), 


@ Asecond $PUTB macro instruction with OPC-EOB 
specified, and 


@ One or more $GETB macro instructions with OPC—-BLK 
specified (see index entry $GETB macro instruction), 


When the first $PUTB is issued the logical buffer must 


contain: 
Buffer 
ESC WCC SBA Address 


The output data stream can also include, following the WCC, 
data to be written to the terminal. The WCC should be set 
to inhibit resetting of modified data tags, and the last buffer 
address should be the position from which the read modi- 
fied operation is to start. 


When the second $PUTB is issued, the logical buffer must 
contain: 


esc [6] 


Record length (SBDREL) must be 2, and the DTF must 
be a conversational DTF (CONV-—Y specified in $DTFB). 
If the $BCCRP completion code is posted after checking 
the second PUT request for completion ($CHK), issue 
$GETB. 


A maximum of 256 bytes of data, including control 
characters, will be read by the first $GETB. The data is 
read from the terminal buffer location established by the 
first $PUTB. The input data stream will be in one of the 
formats shown in Figure 7. 


Read the remaining message blocks by issuing $GETB until 
the $BCEOT completion code is posted. 


Read Buffer: This function reads the entire contents of a 
specified terminal buffer, including modified and unmodi- 
fied fields, attribute characters, and nulls (X’00’). It is 
intended primarily for diagnostic use. 


Read a buffer by issuing: 


® AS$PUTB macro instruction with OPC—EOB specified 
(see index entry $PUTB macro instruction), and 


© One or more $GETB macro instructions with OPC—BLK 
specified (see index entry $GETB macro instruction). 


When $PUTB is issued, the logical buffer must contain: 


Record length ($BDREL) must be 2, and the DTF must be 
a conversational DTF (CONV-—Y specified in $DTFB). If 
the $BCCRP completion code is posted after checking the 
PUT request for completion ($CHK), issue $GETB. 


After this message has been written to the device, the 
$GETB reads the first message block from the terminal 
buffer (since only a maximum of 256 bytes can be trans- 
mitted by one $GETB macro instruction, more read opera- 
tions will be required to read the entire buffer). Subsequent 
$GETBs are then issued to read as many remaining blocks 
of the terminal buffer as the program requires. 


All data beginning at !ocation 0 in the terminal buffer is 
read. !n addition, a special character (SF) is inserted by the 
hardware into the input data stream to indicate the begin- 
ning of each field. The input data stream for the first mes- 
sage block, if the terminal buffer is formatted, appears as: 


cu Device Cursor | Attr ETB 
Text 


Subsequent message blocks appear as: 


, Attr ETB 


If the terminal buffer is unformatted, no SF characters are 
inserted since there are no fields. The input following the 
cursor address would consist of all character locations 

in the buffer, including nulls. 
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Read Buffer from Position: This function reads the contents 
of a specified termina! buffer beginning at a specified buf- 
fer position. All fields, modified and unmodified, attrib- 

ute characters, and nulls (X‘00’) are read. As with reading 

a buffer, reading a buffer from position is intended pri- 
marily for diagnostic uses. 


Read a buffer from position by issuing: 


@® A$PUTB macro instruction with OPC—EOB specified 
(see index entry $PUTB macro instruction), 


@ Asecond $PUTB macro instruction with OPC—EOB 
specified, and 


@ One or more $GETB macro instructions with OPC~BLK 
specified (see index entry $GETB macro instruction). 


When the first $PUTB is issued the logical buffer must 
contain: 


Buffer 
jee] 9 [we [sa] cairo 


The output data stream could also include, following the 
WCC, data to be written to the terminal. The WCC should 
be set to inhibit resetting of modified data tags; and the 
buffer address should be the position from which the read 
buffer from position operation is to begin. 


When the second $PUTB is issued the logical buffer must 
contain: 


LESC | 2 | 


Record length ($BDREL) must be 2, and the DTF must be 
a conversational DTF (CONV-Y specified in $DTFB). If 

the $BCCRP completion code is posted after checking the 
PUT request for completion ($CHK), issue $GETB. 


The $CE78B reads the first message block from the terminal 
buffer beginning at the location specified in the first $PUTB. 
Ali data beginning at the specified location is read. In 
addition, a special character (SF) is inserted into the input 
data stream to indicate the beginning of each field. The 
input data stream for the first message block, if the terminal 
buffer is formatted, appears as: 


cu Device Cursor Attr ETB 
[s*% | patra |acare | S| necgee — {L S* | cre | tee [oe] cre | Sy | ere] 
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Subsequent message blocks appear as: 


Attr Attr 
ST : 
fox] MT foe] ee fe] ae [| 


If the terminal buffer from the specified beginning location 
is unformatted, no SF characters can be inserted, since 
there are no fields. The input following the cursor address 
would consist of al! character locations in the buffer, 
including nulls. 


Write Operations 
Writing to a remote 3270, you can: 


@ Write data to any desired position in a display station 
or printer buffer. 


@ Erase the data presently at the device buffer (on the 
screen or in the printer buffer) and write data to any 
buffer location. 


@ Erase all unprotected fields in the display or printer 
buffer. Protected and unprotected data are described 
in the 3270 component description. 


® Copy data in one device buffer to the buffer of a device 
attached to the same control unit. (For instance, have 
the contents of a display station buffer printed at a 
nearby printer.) 


@ Transmit conversational replies. 


Note that if you are transmitting to one terminal attached 
to a 3271 control unit, you must transmit EOT before you 
can transmit to a different terminal attached to the same 
control unit. See index entry terminating transmit files. 

In the description of write operations that follows, consider 
also that whenever you write to a 3270 printer you must 
specify $PUTB OPC—EOW for each record, and need not 
transmit EOT. EOT will be transmitted automatically. 


ETB 
ETX 


Write: The write function writes a message to a terminal 
(display station or printer) buffer. To write to a remote 
3270: 


@ Issue a $PUTB macro instruction, and 


® Transmit EOT (see index entry terminating transmit 
files). 


When $PUTB is issued, the logical buffer must contain: 
Orders 
ESC =a wee and Text C] 


An SBA order sequence should follow immediately after 
the WCC, so that the write operation can be retried if an 
error occurs. See /BM 3270 Information Display System 
Component Description, GA27-2749, for how to write the 
WCC, SBA, and other data stream characters. 


To send the message in blocks instead of in one data stream, 
additional $PUTBs may be issued with the output area in 
the format described above. To terminate the process, 
transmit EOT. 
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Programming Note: \f a terminal operator has made an entry 
and pressed the ENTER key but no initial $GETB has been 
issued, an initial $PUTB to the display may nullify the 
Operator input. This situation may be avoided by reserving 
areas of the display for operator input only (nothing will 

be written to these areas) and then setting the reset modi- 
fied data (RMD) bit to zero (meaning do not reset modified 
data tags) in the write control character (WCC) of the 

initial $PUTB message. Setting the RMD bit off in the 
WCC is required because if modified data tags are reset as 
part of the initial $PUTB the pending attention will not 

be honored since there will be an indication that no fields 
have been modified. 


Erase and Write: The erase and write function erases the 
buffer of a selected terminal, and then writes a message 
to the terminal buffer. The erasure consists of changing 
each character location in the buffer to X’00’. With the 
message omitted, the process can be used just to erase the 
buffer. 


Erase and write by: 
@ Issuing a$PUTB macro instruction, and 
@ Transmitting EOT (see index entry terminating transmit 


files). 


When $PUTB is issued the logical buffer must contain: 


WCC Orders and Text 


An SBA order sequence should follow immediately after 
the WCC so that the write operation can be retried if an 
error occurs. 


ESC 5 


To send the message in blocks instead of in one data stream 
from one large output area, subsequent $PUTBs may be 
issued with ESC code 1 and WCC specified (see the 

write function). 


To erase and write, the data stream placed in the logical 
buffer would contain an ESC code 5. To simply erase the 
buffer, orders and text would be omitted from the data 
stream. 


Erase Unprotected Fields: The erase unprotected fields 
function sets all unprotected fields in a selected terminal 
buffer to nulls (X‘00’). It also resets the modified data tag 
(MDT) bits in the attribute characters of unprotected data 
fields to 0, restores the keyborad, resets the AID, and 
repositions the cursor to the first character location in the 
first unprotected field in the buffer. If the buffer is com- 
pletely protected, the keyboard is restored, and AID reset, 
the cursor moved to location 0, and no erasure takes place. 
(See the component description for a description of the 
attribute and AID characters.) 


Erase unprotected fields by: 


® Issuing $PUTB with OPC—EOB specified (see index entry 
$PUTB macro instruction), and 


@ Transmitting EOT (see index entry terminating transmit 
files). 


When $PUTB is issued the logical buffer must contain: 


Copy: The copy function selects a device and copies into 
its buffer the contents of the buffer of another device 
attached to the same 3271 control unit. Copy can be used 
to transfer the contents of a display station screen to a 
printer to get a printout of the screen or to copy the con- 
tents of one screen onto another. 


To copy: 

® Issue $PUTB with OPC~EOB (OPC—EOW if you are 
copying to a 3270 printer) specified (see index entry 
$PUTB macro instruction), and 


© Transmit EOT (see index entry terminating transmit files). 


When $PUTB is issued the logical buffer must contain: 


From Device 


See the component description for a description of the CCC. 
The from device address is the one-byte address of the device 
from which the data is copied. 


Reply Conversationally: Any of the 3270 write operations 
described on previous page can be transmitted as a con- 
versational reply to a specific terminal. Instead of issuing 
$GETB to receive end of file after you receive a block of 
text ending with ETX, issue a $PUTB to transmit text 

to the terminal. The $PUTB must be issued for the same 
DTF for which you issued the last $GETB, and CONV-Y 
(as well as FTYP-RCV) must have been specified for the 
DTF. (See index entry conversational reply for a detailed 
description of conversational techniques.) 


Conversational replies save line time because you don’t have 
to receive EOT and initiate a new addressing sequence in 
order to transmit a response to text received. However, 

to avoid two-second timeouts that lead to a possible 

abort situation, conversational replies should not be used 

if a significant amount of processing must occur on the data 
received before you will be ready to reply to the terminal 
from which the data was received. (A significant amount of 
processing would be, for example, 2 or 3 disk !/O 
operations.) 
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To Do This... Use These Macro Instructions! With This ESC Code..- 
ee ee 


Read Modified Fields $GETB OPC—BLK = 


After Operator Action 
$PUTB OPC—EOB 6 


Then $GETB = OPC — BLK? No ESC 
$PUTB OPC—EOB 









Read Modified Fields 














Read Modified Fields 
from Position? 







Then $PUTB OPC—EOB 


[eomoe-coe 
[eunocee | 
a 
$PUTB OPC—EOF5 
ee 


Then $PUTB OPC—EOF® 
















Read Buffer from 
Position? 












Erase and Write 










Erase Unprotected 
Fields 








$PUTB OPC—EOB (OPC—EOW to 
Copy to a 3270 Printer) 


Then $PUTB OPC—EOF® 


1p $CHK macro instruction is required with each $GETB or $PUTB macro instruction to determine |/O 
completion. 








2In order to effect the read modified fields from position and read buffer from position functions, an 
initial $PUTB is issued first to establish the screen position by specifying an SBA address, and then a 
second $PUTB is issued to send the escape command. 






3 The ESC code, in character form, is preceded by the ESC character. 






4CONV-Y must have been specified in $DTFB for the file, and the $BCCRP completion code must have 
been posted for the previous $PUTB. 






5 See index entry terminate transmit files for other ways to transmit EOT. 





Figure 8. 3270 Read and Write Functions 


How to Request an Online Test from a 3270 


One 3270 can test another 3270 in the same network (or 
test itself) by transmitting an online test request to the 
System/3 control station. To initiate an online test, a 
3270 display station operator must: 


1. Ensure that the screen is unformatted (one way to do 
this is to press CLEAR, then RESET). 


2. With the cursor at location 0, type in a message with 
the format: 


where XX is a number from 23 through 34 (see 
index entry online test parameter list) specifying the 
desired test; YY is anumber from 01 through 99 
specifying the number of times the test is to be written 
to the device (if the test is a printer, the test can only 
be sent one time); N is the number four, indicating 
the length of Address; where Address is a sequence 
of four alphameric characters specifying the control 
unit and device to which the test is to be sent. Al- 
phabetic characters must be typed in upper case. 
Because double addressing is used, each control unit 
and device character must be repeated. For example, 
to send a test message to control unit 0, device 1, 

in EBCDIC transmission, the operator would press 
the minus (-) key twice and type two A’s. 


3. Press TEST REQUEST. 


The test should now appear at the selected display station 
or printer. 


After the online test is completed, the 3270 operator must 
inform the MLMP program that the previous display was 
erased for the test. (One way to do this is to press CLEAR, 
providing that the MLMP user’s program recognizes the 
CLEAR key AID sequence. If the sequence is recognized, 
the MLMP user can issue $PUTBs to refresh the 3270 
screen.) 


3270 Gnline Test Considerations 


® If System/3 doves not recognize the online test request 
or cannot accept the request, the online test request is 
passed to the MLMP user as data. Be sure that the 
requested test number is correct, and that the MLMP 
1/0 buffers are large enough to accommodate an online 
test request. See index entry online test. 


@ If, in response to a general poll by System/3, you request 
an online test after one or more stations in your cluster 
have transmitted data to the System/3, the System/3 
will be unable to recognize the online test request, and 
will pass the request to the System/3 user as data. 


@ If you respond first to a System/3 general poll by re- 
questing an online test (message type not 00) and 
another station in your cluster transmits data after you 
request the test, and before EOT has been transmitted, 
System/3 aborts transmission and posts the System/3 
user with the $BCOLT completion code (see index entry 
completion code). The data transmitted subsequent to 
your request is Jost. 


Note: To avoid the last two situations described, try to 
ensure that your station will be the only one responding to 
a general poll by System/3 if you want to request an online 
test in response to a general poll. 


Status/Sense Messages 


Because the 3270 cannot accept data when status is pending, 
you must poll the 3270 for status before you can initiate 
or continue transmission to a 3270 on which status is pend- 
ing. After you attempt to transmit to a 3270, status may 
be pending if the $BCERR completion code is posted or if 
the $BCNEG completion code is posted along with the RVI 
switch set on. In either case, poll the 327C for status by 
issuing $GETB for the terminal for which you issued the 
unsuccessful $PUTB. (To avoid a polling loop, specify 
LAST-WRAP in $POLB and a LIMIT of 2 or 3 in $DTFB.) 
After receiving the status, you must issue a second $GETB 
to receive EOF {$BCEOT completion code). 
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If The 
Status/Sense 


See This 
Action 

Number In 
Figure 10 






Bytes 
Contain... 


Applicable 
To...! 





This Means... 





| 











X‘4050’ Intervention required for one of these reasons: 3271, 3275 
® Acommand attempted to start a printer but found 


it not ready (out of paper, hung, etc.). The printout | 
1 





is suppressed. 


| 
' 
| 
@ The power is off on the printer. 
@ The control unit received a selection addressing 3271 
sequence or specific polling sequence for a device 
that is unavailable or went not ready during a 
printout. (A general poll does not respond to an 
unavailable or not ready indication and proceeds 


1 
to the next device.) 
@ The control unit receives a command other than 
diagnostic read or write, for a device that the CU 
has logged as unavailable/not ready. 


4 


@ The printer went not ready during a printout. 





X’4060' 
channel command (for example, NOP, Sense, Seiect, 


CR Command reject. Receipt of an invalid or illega! 3270 
or Copy if not installed). 





X'40C1’ Oc Operation check. Any of the following: 3271, 3275 | 4 
®@ An illegal buffer address or an incomplete order | 
sequence received on a write or erase/write | 
command. | 
@ CCC or from address not received on a copy 3271 
second data character position). | 


command. 
® Invalid command sequence (ESC is not received in | 3271, 3275 


during a command when a data byte is presented to 
the control unit by the TCU before the operation 


@ An I/O interface overrun is detected. This occurs | 
required by the previous data byte has completed. | 


X'40C2’ Cc Control check—timeout. A device has failed to re- | 3271 | 2A 
spond to control unit communications within a 


specified period of time. 


1 : : Saas a : 
In analyzing a status/sense message, the programmer may need to determine whether the device is a 3271 or a 3275. One way to do 
this is to compare the device specified in the status/sense message with a list of all 3275's; if the device is not found in this list, a 
3271 can be assumed. 
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!f The 


See This 









Status/Sense Action 
Bytes Applicable Number In 
Contain... This Means... To...! Figure 10 
















Control check, operation check. The condition 3271 
above was detected while the control unit was 

executing an operation with the from device during 

a copy command. 


Data check. Either one of the following: 3271, 3275 








@ An internal parity check or a cursor check oc- 
curred in either the control unit or device buffer. 


X’40C3’ cc, oC 
@ A transmit parity check occurred on data sent 3271 


X’40C4’ DC 
between the device and the control unit. 


X‘40C6’ DC, OC Data check, operation check. A condition above 3271 
occurred while the control unit was executing an 
operation with the from device during a copy 
command. 


X'40D1' 1R, OC 


X’4C40’ DB, US 
X’4E40’ DB, US, DE 


Xx'C4C1’ Oc, US 


lin analyzing a status/sense message, the programmer may need to determine whether the device is a 3271 or a 3275. One way to do 
this is to compare the device specified in the status/sense message with a fist of all 3275's; if the device is not found in this list, a 
3271 can be assumed. 






Intervention required, operation check. Either of 3271 
the following: 













@ A copy command contains a from address specify- 
ing an unavailable device. 


@ An IR condition (see IR) is detected while the 
CU is executing an operation with the from de- 
vice during a copy command. 


Device busy, unit specify. The addressed device is 3271, 3275 
presently busy executing an operation or a busy 
condition was detected previously by a command. 


Device busy, unit specify, device end. A busy con- 3271, 3275 
dition was detected. However, a device end indica- 

tion means the device is no longer busy and the 

operation should be retried. 






Detection of a BSC error on the TCU transmission. 3275 


Operation check, unit specify. A from address on a 3271 
copy command specified a device with a locked buf- 

fer. (The device was not authorized to be copied 

from.) 










Figure 9 (Part 2 of 3). Analyzing 3270 Status/Sense Messages 
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if The 

Status/Sense 

Bytes 

Contain... This Means... 

i a ee er 

X’C240’ Device end. Signals that a previously detected busy 
condition has gone not busy, a not ready device has 
gone ready, or a not available device is now available. 

X‘C250’ ) IRE Same as X‘4050’. 

x‘C2C4’ DC, DE Same as X‘40C4’. 


X’C2C8’ EC, DE Equipment check, device end. A mechanical hang or 
a character generator read out error on the printer. 
X'C4C4’ DC, US Same as X‘40C4’. 


x‘C4C5’ DC, OC, US | Same as X‘40C4’ occurring while the CU was executing 
an operation with the from device on a copy command. 

x‘C6C4' DC, US, DE 

X’C6C8' EC, US, DE | Same as X‘C2C8’. 


X’C6D8’ IR, EC, Same as X‘C2C8’. 
US, DE 


| x C840’ The addressed device is presently busy executing an 
operation or a busy condition was detected previously 
by a command. The device is or was busy executing a 
printout, accepting data from an identification card 
reader, or performing keyboard functions. Set under 
either of these conditions: 
@ Acommand is addressed to a busy device. 
® Aspecific poll sequence makes a status poll to a 

device and finds it busy. 


X‘C8C1' DB, OC The same as X‘C840’ and the CU was executing an 
operation with the from device busy during a copy 
command. 


Applicable 
1 


See This 
Action 
Number In 
Figure 10 


Mn analyzing a status/sense message, the programmer may need to determine whether the device is a 3271 or a 3275. One way to do 
this is to compare the device specified in the status/sense message with a list of all 3275's; if the device is not found in this list, a 


3271 can be assumed. 


Figure 9 (Part 3 of 3). Analyzing 3270 Status/Sense Messages 
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Action 
Number 


1c 


2A 


2 


a 


3B 


a 
> 





Programmer Action 

























Execute a new address selection sequence and retransmit the message starting with the command 
sequence which was being executed when the error occurred. If the operation is not successful 
after two retries, consider this an unrecoverable error and follow procedure 5A. 


Same as 1A except follow procedure 5B after two retries. 
Same as 1A except retransmit the entire failing chain of commands. 


It is suggested that the user reconstruct the entire screen buffer image if this is possible and retry 
the failing chain of commands (within the BSC sequence of operations). If the information in the 
screen buffer is such that it cannot or need not be reconstructed, the operation may still be retried. 
If the operation is not successful after three retries, consider this an unrecoverable error and follow 
procedure 5A. 


The error occurred during the execution of a copy command. Execute procedure 2A except that 
it is the buffer of the from device specified by the copy command that should be reconstructed. 
After three retries, execute procedure 5B. 


The error indicates that the printer is out of paper, has the cover open, has the print mechanism 
hung, or the device is unavailable. Wait for the display operator or system operator to intervene 
and mechanically ready the printer. Then retry the printout by issuing a $PUTB with the WCC and 
no data stream. (There is no data error and the data is still intact in the device buffer and can be 
sensed.) Otherwise, execute procedure 2A. 


The error indicates that the from device specified in a copy command is unavailable. The device 
address associated with the error status/sense information is not the one requiring readying. The 
device requiring corrective action is the from device specified in the copy command. This from 
device should be determined and made ready. Then execute procedure 1B. 





An unrecoverable programming error has occurred. Examine the data stream to locate the problem. 





Request maintenance on the device giving the trouble. After repair, attempt to reconstruct the 
screen buffer image if possible, starting with an erase/write command in order to correct a missing 
or multiple cursor situation in the device buffer. Retry the failing operations as done in the pro- 
cedure previous to 5A. 


The from device specified by the copy command in the failing operation is malfunctioning. The 
from device should be determined from the data stream information, and maintenance should be 
requested on the device. After repair, reconstruct the screen buffer image, if possible. The se- 
quence of commands used to reconstruct the image should start with an erase/write command to 
correct a missing or multiple cursor situation in the device buffer. Retry failing operations as done 
in the procedure previous to 5B. 


The error occurred during a printing and indicates either a character generator readout error or a 
print mechanism hang. There is no data error. The proper error recovery procedure is application 
dependent, since the user may or may not want a new printout. If a new printout is required, 
follow procedure 3A. 


A data error occurrecl in the device buffer during printing; follow procedure 2A. 





Figure 10 (Part 1 of 2}. Suggested Actions Eiased on 3270 Status/Sense Messages 
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Programmer Action 





A specific poll detected that the addressed device is busy. Periodically issue a specific poll to pick 
up the device end status/sense bit which is sent by the device to the TCU when the device becomes 
not busy (unless this status change is detected on a selection addressing sequence). 


A command was erroneously addressed to a busy device. Periodically issue an initial $GETB with 
a specific poll to pick up the device end status/sense bit, which is sent by the device to the TCU 


when the device becomes not busy; then follow procedure 2A. 


This error indicates that in attempting to execute a copy command the from device was found to 


be busy. Execute procedure 1A when the from device is not busy. (A specific poll read picks up 
the device end status/sense bit.) The device address associated with the status/sense message is the 
address of the to device and not that of the busy from device. 


A BSC error was detected during a text transmission from the TCU. Follow procedure 2A if the 
failing command is a write command which has a data stream of more than 1 byte or if itis ina 
chain of commands and one of the previous commands in the chain is a write command without an 
SBA order immediately following the WCC character. In all other cases, follow procedure 1C. If 
after following the above retry procedure, the problem is not corrected, follow procedure 5A. 


’ 


An unauthorized attempt was made to read data. An effort was made to execute a copy com- 
mand but access to the from device data was not authorized. The device address associated with 
the error status/sense bits is that of the to device. 





Figure 10 (Part 2 of 2). Suggested Actions Based on 3270 Status/Sense Messages 


Polling/Addressing a 3270 via the Display Adapter 


The display adapter is supported by Models 8, 12, and 15 
only. User assembler programs for the display adapter are 
coded similar to programs for the BSC adapter with the 
following exceptions: 


@ The display adapter requires another link-edit of your 
R-module using a new INCLUDE card: 


// \NCLUDE NAME-$$BSID,UNIT-xx 
(xx = the unit name R1, F1, R2, F2) 


®@ The display adapter emulates both the System/3 BSCA 
line 2 attachment and the 3271 control unit of the 3270 
system. 


@ The display adapter provides a continuous poll function 
which polls the specified devices in the order given. 
(Devices can be repeated more than once to set up 
priorities.) 


@ The poll/address line buffer must contain valid device 


addresses or you will get a unit check (see index entry 
$POLB macro instruction}. 
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A maximum of 12 unique device addresses can be specified 
for the Models 8 and 12, and a maximum of 30 can be 
specified for the Model 15. 


@ 255 total polling entries can be specified in the user pro- 
gram (see index entry $POLB macro instruction). 


@ The display adapter is supported on line 2 only. 


@ The display adapter addressing (station selection) is 
always directed to a specified device. 


@ Display adapter continuous polling line buffer: 


cu CU Limit Device Device 
Address Address | 8F | 8F | Count Address Address 
anal 






ea 
Built by MLMP Data From $POLB Entries 


Management 


From LIMIT 
Keyword, 
$DTFB Macro 


® Address and polling characters for the display adapter 
are 6060xxxx and 4040xxxx respectively (xxxx are the 
device address characters). 


See Appendix B for samples. 


IBM 3735 PROGRAMMABLE TERMINAL 
Form Descriptor Convert Routine ($$BSCN) 


The Form Descriptor Convert routine (FDP/Convert) is 
provided with MLMP to convert form descriptor programs 
{FDPs) generated on OS or DOS to a format suitable for 
transmission from System/3 to an 1BM 3735 Programmable 
Terminal. FDP/Convert converts to a System/3 
file an FOP generated by OS or DOS FDP utility pro- 
grams end punched into cards by IEBPTPCH or an equiva- 
lent punch routine. The System/3 file can then be trans- 
miitec io a 3735 by an MLMP program. (For information 
on how to generate FDPs on System/3, see /BM Systems 
37/35 Support Program Coding Manual, GC21-5096.) 


Whatever the punch routine used to generate the input deck 
for FDP/Convert, the data must be punched in the following 
format 


@ Six cards: data in columns 1-72, sequence number in 
columns 73-80; 


@ Every seventh card: data in columns 1-44, sequence 
number in columns 73-80. 


That is, seven cards of input for FDP/Convert must contain 
a maximum of 476 bytes, and be equivalent to one OS or 
DOS FDP disk record. (OS FDP disk records always contain 
a maximum of 476 bytes. DOS FDP disk records, however, 
cao contain a maximum of 486 bytes. The first 10 bytes 

ot each DOS FDP disk record contain an 8-byte name and 

' 2-byte sequence number. If you are punching FDP re- 
cords generated on DOS, do not punch the first 10 bytes 

of the disk records.) 


Note: FDP/Convert checks the sequence of input decks. 

If an input card is out of sequence, FDP/Convert issues the 
‘PQ’ halt. See the appropriate halt/messages manual listed 
in the Preface for a complete description of the ‘P9’ halt. 
For information regarding |EBPTPCH, see /BM System/360 
Operating System Utilities, GC28-6586. 


FDP/Convert can convert: 


®@ 80-column FDP cards to 96-column expanded format 
cards. 


® 80-column FDP cards to a user-specified consecutive 
5444 disk file. 


® 96-column expanded format FDP cards to a user-speci- 
fied consecutive 5444 disk file. 


Note: Only the disk files are formatted for transmission 
to a 3735. 


80-Column ic 96-Column 


For each 80-column input card, FDP/Convert generates a 
maximum of two 96-col' nn cards. The information in 
the input card, eycept nul! characters, is expanded for 
printability and punched in columns 1-86 of a 96-column 
card. (Null characters [X’4G70'] are inserted into FDP 
records by OS and DOS to pad a record to 476 bytes.) 


As an example of the expansion for printability, the 80- 
column input: 


Column 123 4 
Hex value 4747 
3 260 


1s converted by FDP/Convert to: 


Column 


Hex value 





Character 


To generate a deck of 96-column FDP cards from a deck 
of 80-column cards: 


1. Place, as shown, the following OCL statements and 
data in the 1442 Card Reader/Punch: 


// LOAD $$BSCN,unit 
// RUN 
// CONVERT TO-MFCU,FDPNUM-nnn 
80-column FDP deck(s) 
/* 
2. Place blank 96-column cards in MFCU2. 
3. Begin reading from the 1442. 
The FDP number specified in the // CONVERT statement 
(FDPNUM) is punched in columns 89-91 of each 96-column 


card. Each 96-column card also contains a sequence num- 
ber punched in columns 92-96. 
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80-Column to Consecutive 5444 Disk 


FDP/Convert builds a maximum of one 476-byte disk rec- 
ord for every seven 80-column FDP cards. Null characters 
are deleted. 


To generate from an 80-column card deck a consecutive 
5444 disk file containing one or more FDPs: 


1. Place, as shown, the following OCL statements and 
data in the 1442 Card Reader/Punch: 


// LOAD $$BSCN,unit 
// FILE NAME-$WORK,UNIT-~xx,PACK—pack, 
LABEL—your filename, RECO RDS—number, 
P 
RETAIN—< T 
S 
// RUN 
/1 CONVERT TO-DISK 
80-column FDP deck(s) 
/* 


2. Begin reading from the 1442. 


RECORDS-number in the // FILE OCL statement specifies 
the number of records required to contain the FDP file. 
The maximum number of records required is n divided by 
7, where n = the number of cards in the 80-column input 
deck. 


Expanded 96-Column to Consecutive 5444 Disk 


FDP/Convert repacks expanded format 96-column FDP 
cards, then builds 476-byte disk records from the repacked 
data. 


To generate from a 96-column card deck a consecutive 
5444 disk file containing one or more FDPs: 


1. Place, as shown, the following OCL statements and 
data in MFCU1: 


// LOAD $$BSCN,unit 
// FILE NAME—$WORK,UNIT—xx,PACK—pack, 
LABEL—your filename, RECORDS—number, 
P 
RETAIN— < T 
S 


78 


// RUN 

// CONVERT TO—DISK (The // CONVERT 
statement is optional.) 
96-column FDP deck(s) 


/* 
2. Begin reading from the MFCU. 


RECORDS-number on the // FILE OCL statement specifies 
the number of records required to contain the FDP file. 
The number of records required is n divided by 952, where 
n= total number of columns, excluding columns 89-96, 
punched in the 96-column input deck. The number of re- 
cords required is approximately one disk record for every 
eleven input cards. 


FDP/Convert Considerations 


@ FDP/Convert requires a 1442 Card Reader/Punch to 
convert 80-column FDP cards. if you don’t have a 1442, 
you can use an IBM Business Systems Center or another 
customer installation to run FDP/Convert. Arrangements 
for using an IBM Business Systems Center can be made 
through your IBM representative or the IBM branch 
office serving your locality. 


@ All FDPs must be generated initially by System/3 
Model 10 Disk System, OS, or DOS. You can have 
your FDPs generated at an IBM Business Systems 
Center or at a customer installation. Arrangements for 
using an BM Business Systems Center can be made 
through your IBM representative or the [BM branch 
office serving your locality. 


@ To avoid billable maintenance by IBM, be sure your 


FDPs are generated on the current version/modification 
level of System/3, OS, or DOS. IBM may charge you to 
fix an FDP problem if the FDP was generated on an old 
level of System/3 OS, or DOS, and the problem is fixed 
on the current level. 


Additional 3735 Considerations 


The 3735 has unique data formatting requirements as de- 
scribed in /BM 3735 Programmer's Guide, GC30-3001. 
You must be familiar with these requirements before you 
attempt to communicate with the 3735. 


Appendix B. Sampies 


In pages 8-16 of the following sample MLMP macro instruc- 
tions, the label $DTF is equated to XR2 by the $CQMN 


macro instruction, and other labels used are equated 


Sample MLMP Macro Instructions 
by the $DTOB macro instruction. 


tions, coded with a minimum of associated assembler state- 
ments, and a complete sample program written to communi- 


This appendix contains examples of MIMP macro instruc- 
cate with the IBM 3270 Information Display System. 
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Model 10 and Model 12 Sample Program: Communicating with the 3270 


$3279 FXTERNAL SYMROL LIST 
SYMBAL TYDE VFR 14, M10 90 O8/26/77 PAGE ] 
$3279 MOCULE 


$EQRS5MS FXTRN 
$$RS5TT FXTRN 
$eAMeu FXTRN 
SENSES FXTeR 


$3279 MLM® 2270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


FRR LIC =CAJECT CHF ADDR STMT SOURCE STATEMENT VFR 14, MON 9C CA/2P6/77 PAGE 2 
9390 2? $3279 START O 
0001 3 FXTRN $$BSMS 
9002 4 FXTQN $€8STT 


6 ee eR KR wR Ok ke Ok eK ee we RK RK hk eK OF eRe Hk Re eR ee KR me me Oe Ok Oe 
7 x : 
8 * * 
Oo + S3270 1S A SAMPLE MLMP PROGRAM WRITTEN TO TLLUST@ATE TEE x 
Li ¥ FOLLOWING - * 
ll * * 
12 * 1. HOW TO CODE SYSTEM/3 SYSTEM MACROS, * 
13 * 26 HUW TN CONF SYSTFM/ 3 MLMP MACROS, * 
14 * 3. HOW TO READ AND WRITE WITH A 3270 INFORMATIONAL NESPLAY * 
15 * SYSTEM. * 
16 * * 
17 * S?270 WILL DISPLAY A NAME ANT ADDRESS MESSAGE ON THE SCREEN. THE * 
18 * NPFRATOR THEN MAY KFY EN THE NAME AND ATNRESS FIFLOS. THE FNTER * 
19 * KEY SHOULD BF DEPRESSED TO INCICATE THE FN') OF THE FIELDS. * 
2c * THE DATA FLELOS ENTERED BY THE OPFRATOR VIA THE BESPLAY KEYROARD * 
2?) * WILL PF PRINTED IN THE SYSTEM LOGGING NEVICE. THE CLEAR KEY OR THES 
2? * ONLINE TEST REQUFST KFY MAY ALST AF USED, PRESSING THE ENTER KEY * 
aX % WETHOUT ANY DATA WIttL CAUSE FND OF JMR, LIS’ OF ANY CTHER KEYS * 
24 * WILL CAUSE AN FRIAR MESSAGE TO BE PRINTED AND THE SCREFN TO RE * 
25. REFRESHED WITkK THE NAME AND ADDRESS NISPL AY, * 
26 * * 
oT * * 
28 # eR RR ke FR oe ew FR eR ee kK ek He Re ke wR eH Ak ee eH & 
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OF 
oool 
0045 
23 
O7 
0000 
OF 
13 
OF 
09 
OF 
03 
OF 


O19F 


O61F 
0003 


OE 
OB 
9718 
O71B8 


INFORMATION 


ANNR STMT SOURCE STATEMENT VER 14, 
30 * $ALQOC DIF-DTFL 
Bee OF VICE ALLOCATE LINKAGE 
42+ LA OTFL, $DTF 
33+ B 4 
9098 34+ oC XL1'8R° 
35 * SOPEN CTF-DTF 
364% DEVICE OPEN LINKAGE 
37+ 1A OTFL,$OTF 
38+ RB 4 
OOLL Ag+ OC XL1'82°* 
40 * 
41 * THIS ROUTENE WItl SET THE DESPL AY SCREEN TO NULLS, 
42 * 
44 * 
44 * 
N012 45 SETDIES FOU * 
46 * $PUTB DTF-DTF L,REJFCT-RADREFT 
47+% BSCA PUT LINKAGE 
49+ LA OTFL SOTF 
59+ cut SBOCMP(, SOTF ), $BCREQ 
5i+ JE $F19003 
52+ TBN SBNATRO(,$OTF),$BCOPN 
53+ TBN SBOATT (, $DTF), $B8COUT 
54+ JF $F 2003 
554 TBN SROATT(, $0TF), $BCCNV 
56+ cul S$BOCMP(,$DTF), SBCCRP 
S7+ JC $F 3003,8TRU+$HI+$L0 
58+ MV I SBOO0PC(, $0TF ), $B 0PUT 
59+ MVI SBOCMP(,$0TF),$BCREQ 
60+ 8 $$BSMS 
61+ st $51003+4+3, $8BAC 1 
62+ L $BNIOB(,$0TF), $10B 
63+ CLI SBI CMP(,$10B),$BCC AL 
644+$51003 LA *-%, $BBACL 
65+ JF $F 3003 
66+ J $XTO003 
67+$E1003 MVI SBOCMP(,80TF), $BCIGN 
68+ J $RIOO03 
69+$E2003 MVE SBDCMP(, SNOTF ), $SBCUER 
70+ J $RJOO3 
714+$£3003 MVI SBOCMP( ,S$9TF),$BCCAL 
005B 72+$RJOO03 EQU * 
73+ 8 BAORET 
OO5F 7144+$XT903 EQU * 
75 * $CHK CKE-LISTI 
164% GENERATE A WAIT ON LEST CALL 
77+ LA LISTL, SPARM 
T8+ B $$BMCH 
0003 80+ EXTRN $$BMCH 
8? cli SBOCMP(, $DOTF), $BCNEG 
83 JNE cKGNO00 
84 TBN MASK,RVI 
85 SBF MASK »RVI 


RESPLAY SYSTEM SAMPLE PROGRAM 


MOND O00 O8/26/T7 
ALLOCATE A 
RELEASF-7T 
SFT ADDRES 
BRANCH TN 
RIB - 


RELEASE-7 
LOAD OTF A 
GO TO GENE 
RIB - OPEN 


RELEASE-7 


LOAD XR2 WwW 
LAST OP NO 
NO-GO POST 
OPENED ? 

PUT FILF ? 
NO-GOQ POST 
CONVERSATI 
REPLY PEND 
Y=S-GC PCS 
SFT RFQUFS 
SET TQ 9P 
GN TO BSCA 
SAVE XR1. 

LOAD IOB A 
Q INVALID 
RESTORE XR 
YFES-GO TC 
GO EXIT. 

SET REQUES 
GO EXIT. 

SET USER E 
GO EXIT. 

SET TNVALT 


GO HANODL F 
RELEASF-7 
LOAD ADDR 
CALL COMMO 


EXTRN FOR 


NEGATIVE R 


7 PAGE 3 


ND OPEN THE (TFS 


S OF OTF IN REGISTER 


GENERAL ENTRY 


ALLOCATF SPACE 


ODRESS IN REGISTER 2 


RAL FNTRY 


MOVF THE NAME 


AND ADDRESS MESSAGES TO THE SCRFFEN DISPLAY ANC SET THE CURSOR AND 
RUFFER ADDRFSS PIYINTERS TO THE FIRST OPERATOR ENTERED FIFLD. 


D 


ITH OTF ADOR. 
NE ? 


RFQUEST IGNORFD. 


PFRM?'T ERROR, 
ONAL 

ING ? 

FT INVALTO CALL. 
TED PUT OPFRATION. 
ACCEPTED. 


DATA MANAGEMENT. 
COR IN XR1. 
CALL POSTED IN IOB? 


1. 
POST 


INVALTD REQUEST. 
T IGNORED. 
RROR. 
O CALL. 
REJECTED COMMAND. 
A 
OF WATT LIST IN XR2. 
N WAIT. 
$$BMCH. 


ESPONSE ? 


JUMP TF NOT NEGATIVE RESPONSE 


RVI PENOIN 
SET OFF RV 


G ? 
T INDICATOR 


% 
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S3270 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 
ERR LOC OBJECT CONE ADDR STMT SOURCE STATEMENT VER 14, MOD 00 O8/26/77 PAGE 4 
9075 F2 10 07 86 JT RESPCN GET STATUS TF RVI RESPONSE 
0078 87 CKGOOD EQU * 
0078 8D 40 OF 88 cul $BOCMP(,$0TF),$BCDNE GNOD OP COMPLETION ? 
0078 CO Ol O19F a9 BNE BADRET 50 TO ERROR PRINT IF NOT GOOD 
90 * 
91 * THES ROUTINE WILL POLL THE 3270 SYSTEM FOR THE CPERATOR RESPONSE. * 
G2 * THE DATA FIELD RECEIVED FROM THE TERMINAL IS ANALYZED FOR THE * 
93 * CLEAR KEY, STATUS MESSAGE, OR FNTER WITH OR WITHOUT DATA. ANY * 
9G * OTHER KEY WILL CAUSE AN ERROR MESSAGE. IF ENTER TS PRESENT WITH * 
95 * NO DATA THE END SF JOB ROUTINE IS CALLED. THE STATUS MESSAGE WILL * 
96 * BE PRINTED OUT. THE OPERATOR KEYED DATA FIELDS WILL BE PRINTED. * 
a7 * 
NO7F “08 RESPON FQU * 
OO7F 99 MORE QU * 
1q0 * $GFTB OTF-OTF2,0PC-BLK,REJECT-BADRFET 
1Cl+* BSCA GET LINKAGE RELEASF-7 0 
VOTE C2 02 O21N 103+ LA OTF2,$DTF LOAD XR2 WITH PTF ADDR. 
0083 8D 00 OF 104+ cul $BCCMP(, SOTF), $BCREQ LAST OP NONE ? 
0086 F2 B1 41 105+ JE $F1005 NO-GO POST REQUEST IGNORED. 
9089 AB OL O03 106+ TBN SBDATR(,$DTF), $BRCOPN OPENED ? 
O08C BB 80 02 1C7+ TBN SBOATT (, $OTF), $BCINP GET FILE ? 
OORF F2 90 3E LdB+ JF $€2005 NO-GO POST PERM'T ERROR. 
0092 24 OL OO9F 109+ st $5V 0543, $8BAC 1 SAVE REGISTER. 
0096 B5 OL 23 L10+ L $BO10B(, $NTF), $IOR LOAD THE INB REGISTER, 
0999 79 04 05 Viet TBF SBIFLA(,$19B), SRIF ST FRROR FREE, --~--~---+-~-----~ | 
009C €2 01 ONO0N 112+$SV005 LA *-*, $BBACL RFLGAN RFGISTER. \ 
OOA0 BB TO 02 113+ TBN SBDATT (,$DTF),$BCC NV AND CONVERSATIONAL 2? <------~- | 
9043 F2 90 99 114+ JF $6T905 NO-SO PROCESS THE GFT. 
OOAS 88 40 OF 115+ TBN SECNPC(, $SOTF), $AOPUT LAST OPERATION A PUT, 
9049 BD 46 OF 116+ cit SROCMP(,$0TF),$8CCRP AND NO CONV. REPLY PENDING ? 
OOAC F2 11 27 LIi7T+ JC $F 3005,$TRU+S$EQ YES-GO POST INVALID CALL. 
OOAF AC 81 OF L18+$G6T005 MVI $BDOPC(, $9TF), $B80GBK SET OP CODF FOR GFT FUNCTION. 
OOR2 CO 87 A001 119+ 8 $$BSMS GO TO BSCA DATA MANAG MENT. 
OOR6 34 O1 00C3 120+ st #5190543, $BBAC 1 SAVE XR], 
QORA AS OL 23 L21+ L SROTOB(, $OTF), $108 LOAD TOB ANDR IN SR). 
O7BD 7D 4D OF 122+ CLI S$BRICMP(,$19B),$BCCAL Q INVALID CALL POSTFD IN I0R? 
00C0 C2 01 0000 123+$S1005 LA *-%*, $BBACL RESTORE XR). 
QOC4 F2 81 OF 124+ JE $£3905 YFS-GO TN SET INVALID RFQUEST. 
NOCT FF? B87 13 125+ J $XxTOO5 GO EXIT. 
OOrTA BC GA OF 126+$E1005 MVI S$BOCMP(, $OTF ), €BCIGN SET REQUFST IGNIURED, 
OOCD F2 87 09 127+ J $25005 GO FXIT. 
0090 BC 41 OF 1284+$62005 MVI SRDCMP(,$DTF),$BCUFR SET USER FRROR, 
0003 F2 87 03 129+ J $RJO05 GO FXIT. 
0006 BC 4D OF 130+%6 3005 MVI $BOCMP(,8DTF), $BCCAL SET INVALID REQUFST. 
N0D9 1314$RJ005 EQU * 
0009 CO 87 CLOF 132+ B BADRET GO HANOLE REJECTED COMMAND. 
OODD 133+$XTOO5 EQU * 
134 * $CHK CKL-LIST2 
135+% GENERATE A WATT ON LIST CALL RELEASE-7 A 
NOON C2 02 0622 136+ LA LIST2,$PARM LOAD ADOR OF WAIT LIST IN XR2. 
OOF1 CD 87 00C3 137+ B $$BMCH CALL COMMON WAIT. 
OOF5S BN 42 OF 139 cul SBOCMP(,$NTF),$BCEOT END OF FILE RECEIVED ? 
OOF8 CO 81 0012 140 BE SETDIS SQ TO PUT TF EGF RETURN 
OOFC BD 40 OF 141 cul $BOCMP(,$0TF),$8CONE GOOD OP COMPLETION ? 
$3270 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 
FRR LNC OBYECT CONE ADDR STMT SOURCE STATEMENT VER 14, MOD 00 08/26/77 PAGE 5 
OOFF CO O01 O19F 142 BNE BADRET PRINT BAD RETURN IF NOT EOF 
90F3 30 6D O4AE 143 cui WORK243,CLEAR WAS CLEAR KEY USED ? 
OOF7 CO 81 OOTF 144 BE MORE LOOP TO GET END OF FILE 
OOFR OD 02 04AN 0627 145 CLO WORK 242(3)¢STATUS STATUS MESSAGE RECEIVED ? 
O1lOL CO 81 OLIA 146 BE PSTAT GO TO PRINT THE STATUS MESSAGE 
0105 30 7D O4AE 147 CLI WORK 2+3, ENTER ENTER KEY USED ? 
0109 CO 81 0175 148 BE CATA CHECK FOR DATA IF ENTER 
0109 C2 02 0566 149 LA ERROR ,XR2 SET ERRGR PARM POINTER 
150 * $SVC  RIB-HALT 
15) +* SUPERVISOR CALL LINKAGE RELEASE-7 
O111 CO 87 0004 152+ 8 4 BRANCH TO GENERAL ENTRY 
0115 85 O11L5 153+ oc XLites? RIB — 85 
0116 CO 87 OCTF 155 B MORE LOOP RACK TO GET FOF 


Samples 89 
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$3270 


ERR LOC 


OLLA 
O1LE 
0124 
9128 
o12c 


0139 
0134 
0138 
9138 
O1L3E 
0144 
0148 
O14C 


0150 
0153 
0156 


0158 
OLSE 
0164 
0168 


O16C 
0170 


O17) 


CBJECT CODE 


3c 
oc 
2c 
C2 
c2 


68 
€8 
C2 
£2 
CF 
co 
c2 
3c 


7m 
4r 
C2 
OF 


co 
c2 


co 
e5 


co 


FO 
10 


ol 
02 


02 
03 
O1 
02 
00 
o1 
Ol 
12 


F9 
00 
ol 
00 


Ol 
02 


87 


87 


O714 
0719 OT1LA 
O6E8 
0709 
04AB 


90 00 

01 00 

02 

O1 

C6E8 O6E9 
0130 

0709 

O6F8 


00 
c5 
00 O6FA 


Ol 
O6F8 O6ES 


0150 
OS5SEB 


0904 


OOTF 


ADDR STMT SOURCE STATEMENT VER 14, 
157 * 
158 * THIS ROUTINE 
159 *® 
OLLA 160 PSTAT EQU * 
161 MVI STAT,ZERG 
162 MVC STAT-1LO1L7) STAT 
163 Mv SCCUNT »NINE 
164 LA STATB,XR1 
165 LA WORK 2,XR2 
0130 166 MOVST EQU * 
167 MNZ OU,XR1),00,XR2) 
168 MNN 10 sXR1L),00,XR2) 
169 LA 2(,XR1)—XR1 
170 LA 10, XR2)— XRZ 
171 SLC SCOUNT (1),0NE 
172 BNZ MOVST 
173 LA STATBeXRE 
174 MVI SCOUNT ,EIGTEN 
0150 175 SETPRT EQU * 
176 cul O(,XR1),NONPRT 
177 JINH NOSB39 
178 SLC OC1,XRE) S839 
0158 179 NOSB839 EQU * 
180 LA 1(0,XR1L)_,xXR1 
181 SLC SCOUNT(1),0NE 
182 BNZ SETPRT 
183 LA SMESSGsXR2 
184 * $SVC RIB-HALT 
185+* SUPERVISCR CALL LINKAGE 
186+ B 4 
0170 187+ oc XL1°85°* 
189 8 MORE 


“LMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


MOD 00 


08/26/77 PAGE 6 


WILL PRINT THE STATUS MESSAGES 


INETIALIZE THE PRINT AREA 
INITYTALIZE MOVE COUNTER 
SET PRIAT POINTER 

SET DATA POINTER 


SAVE THE STATUS BYTES 


UPNATE THE PRENT AREA POINTER 
UPDATE THE STATUS POINTER 
UPDATE THE MOVE COUNTER 

LOcP TO MOVE I© NOT DONE 
RESET STATUS MESSAGE POINTER 
RESET PROCESS COUNT 


PRENTABLE CHARACTER ? 
JUMP TF PRINTABLE 
SET TO PRINTABLE 


UPDATE THE PRINT AREA POINTER 
UPDATE PROCESS COUNTER 

LOOP IF NOT END OF PROCESS 
SET PRINT PARM POINTER 


RELEASE-7 
PRANCH TO GENERAL ENTRY 
RIB -— 865 


GO TO GET EOF 


$3270 MMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


ERR LOC 


0175 
0179 
0170 
0183 


O1La? 
0188 


018C 
0192 


0196 
O19A 


OL9B 


O19F 
OLAS 
OLAA 
QLAF 
0183 
0186 


O18C 
01C0 
O1c4s 
O1Cc5 
o1c9 
O1co 
O1CE 


O10L 
0105 
o1ng 


OLOA 
O1DE 


OBJECT CODE 


20 
co 
oc 
C2 


co 
@5 


oc 
C2 


co 
a5 


co 


OT 
28 
28 
39 
F2 
CF 


C2 
co 
85 
C2 
co 
85 
FO 


c2 
co 
83 


co 
84 


03 
LB 
10 
02 


87 


10 
02 


87 


ol 
02 
03 
Fg 
04 
00 


02 


87 


02 


87 


FF 


02 
87 


87 


04B1 
Oot 
O6A7 
050C 


0004 


O6ET 
O5E1 


0004 


OOTF 


0647 


0646 


0647 


0647 


06 


0647 


0507 


0004 


O5FO 


0004 


FF 


O10F 
0004 


0004 


0406 


O4F2 


0647 


OE 


O6EA 


0175 


0188 


O19A 


019F 


O1BC 


O1C4 


01cOd 


O1D1 


O1n9 
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MOD 00 08/26/77 PAGE 7 


ENTER KEY ONLY ? 

GO TO CLOSE IF ENTER ONLY 
MOVE NAME DATA TO PRINT 

SET NAME PRINT PARM POINTER 


RELEASE-7 
BRANCH TO GENERAL ENTRY 
RIB - 85 


MOVE ADDRESS TO PRINT AREA 
SET ADDRESS PARM POINTER 


RELEASE-7 
BRANCH TO GENERAL ENTRY 
RIB - 85 


LOOP TO RECEIVE EOF 


CODE FOR THE GET REQUEST 


INITIALIZE PRINT AREA 
SAVF THE RETURN CODE 


PRINTABLE CHARACTER ? 
JUMP TF PRINTABLE ? 
SET TC PRINTABLE CHARACTER 


SET PRINT PARM POINTER 


RELEASE-7 
BRANCH TO GENERAL ENTRY 
RIB = 865 


SET HALT P ARM POINTER 


RELEASE-7 
BRANCH TO GENERAL ENTRY 
RIB — 85 


HALT TO ALLOW CORE DUMP 


CLOSE THE BSCA FILES 
RELEASE-7 

SET ADOR OF OTF IN REGISTER 2. 
BRANCH TO GENERAL ENTRY 

RIB - CLOSE 

CALL EQS ROUTINES 

RELEASE-7 

BRANCH TO GENERAL ENTRY 


ADDR STMT SOURCE STATEMENT VER 14, 
191 * 
192 * THIS ROUTINE 1S USED TO PROCESS THE DATA MESSAGES 
193 * 
194 DATA EQu * 
195 cut WORK24+6,ETX 
196 BE CLOSE 
197 MVC NEND(30),NFEELO 
198 LA NAME ,XR2 
199 * $SVC  RIB-HALT 
200+*% SUPERVISOR CALL LINKAGE 
201+ 8B 4 
202+ 0c XL1*65? 
204 MVC AEND(30),AFIELD 
205 LA ADOR,XR2 
206 * $SVC RIB-HALT 
207 +* SUPERVISOR CALL LINKAGE 
208+ 8 4 
209+ oc xXxL1'as* 
211 8 MORE 
212 * 
213 * THIS ROUTINE CHECKS THE COMPLETION 
214 * 
215 BADRET EQU * 
216 Sz RET(2),RET(2) 
217 MNZ RET-1,$B0CMP(, $OTF) 
218 MNN RET,S$BOCMP( ,$OTF) 
219 cil RET,NONPRT 
220 JNH NOSET 
221 SLC RET(1),.S839 
222 NOSET EQu * 
223 LA RE TUFN XR2 
224 * $SVC RIB-HALT 
225+4% SUPERVISOR CALL LINKAGE 
226+ 8 4 
227+ oc xXL1L*85?* 
229 LA HLMESS,XR2 
230 * $SVC RIB-HALT 
23148 SUPERVISOR CALL LINKAGE 
232+¢ 8 4 
233+ oc xL1'as? 
235 HPL X'FFC,Xtre 
236 CLOSE €EQU * 
237 * $CLOS OTF-OTF1 
238+% DEVICE CLOSE LINKAGE 
239+ ta OTF1,SOTF 
240+ B 4 
241+ oc XL1°83° 
242 * SEOJ 
24348 END OF JGB LINKAGE 
244+ 8 4 
245+ oc ML1°84° 


O1DE 


END OF JOB 


Samples 91 
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$3270 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


ERR LOC 


OLDF 
OLEO 
OlFl 
O1LE2 
O1F 3 
O1ES 
OLFT 
O1EB 
OLED 
OLFE 
O1LEF 
OLFL 
OLF2 
O1FE4 
O1F5 
O1F6 
OLFT 
OLF8 
O1FB 
O1LFO 
OLFF 
0201 
0203 
0205 
O20A 
0208 
0200 
0213 
0214 
0215 
N218 


52970 MUMP 32270 


FRe Lac 


9210 
O?1F 
D21F 
0220 
O2A1 
0724 
0225 
9229 
0278 
022C 
0220 
O22F 
0230 
0232 
0233 
0234 
0235 
0236 
0239 
0238 
0230 
O23F 
0241 
0243 
0248 
02 4B 
0251 
0252 
0253 
0259 


92 


CBJECT CODE 


80 

00 

41 

88 

0000 
C210 
c0000000 
0443 

90 

00 

0000 

00 

0 60F 

Fl 

co 

CA 

00 
000000 
OOR4 
0068 
C068 
0258 
O2FC 
0000000000 
89 

O718 
000000000000 
08 

co 
009000000900 
O5F5 


CBSFECT CONE 


80 

oo 

e9 

88 

co000 

FREE 
€9090000 
C4AR 

00 

co 

0000 

00 

O6l7 

Fl 

co 

FE 

00 

000000 
COB4S 

012C 

c12c 

O2ED 

0442 
0000000000 
090000 
000000000000 
co 

00 
€00000000900 
OSF5 


ADDR STMT 


0004 
OLDF 
O10F 
O1E0O 
OLEL 
O1E2 
OLE4 
O1E6 
O1EA 
O1EC 
OLED 
O1EE 
O1FO 
O1F1 
O1F3 
OF 4 
OFS 
OLF6 
O1FT7 
OLFA 
O1FC 
OLFE 
0200 
0202 
0204 
0209 
020A 
020C 
0212 
0213 
0214 
O21A 
O21C 


247 *TFL 
248 * 
249 * 
250+* 
251+ 
252+0TFL 
253+ 
254+ 
255+ 
256+ 
257+ 
258+ 
259+ 
260+ 
261+ 
262+ 
263+ 
264+ 
265+ 
2 66+ 
267+ 
268+ 
269+ 
270+ 
271+ 
272+ 
273+ 
274+ 
275+ 
276+ 
277+ 
278+ 
279+ 
280+ 
281+ 
282+ 
283+ 


SOURCE STATEMENT 


MOD 00 08/26/77 PAGE 8 


$DOTFB RECL-104,8LKL-—104, BUFST-BUFL1, BUFEND-BI END, RCAD-WORKI, 


FTYP-TSM,LINE-1,CODE—E,T YPE-CS,LISTAD-SELECT »ERRLOG-LOG, 


CHN-DTF2,RVIADR-MASK «RVIMSK-80,LIMIT-10 


BSCA OTF. 

EXTRN $$BSLG 

EQU * 

oc XL1*'80t 

oc xL1°00° 

OC AL1 (00#+00+90 +00#9*00+65) 
oc XL1' 88° 

oc XL2*00° 

oc AL2(0TF2) 
OC XL 400° 

oc AL2 (WORK) 
oc XL1* 00° 

oc XL1*00* 

oc xL2'00°* 

oC XL1L‘OO' 

oc AL 2(SELECT}) 
oc XLI'FLt 

oc xL1*"O0°* 

oc ALL(10) 

oc XL1' OO! 

oc XL3'O0? 

NC XL2"*OOB4' 
oc AL2( 104) 
oc AL2(104) 
oc AL2 (BUFL) 
oc AL2(B1ENO) 
boc XL5"'00! 

oc XL1"° 80° 

oc AL 2UMASK) 
oC XL6*0OO* 

oc AL1L(C8+90+00) 
oc xL1*00' 

oc XL6"'00? 

oC AL2(LCG) 


INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


ADDR STMT SOURCE STATEMENT 


0210 
021D 
O21F 
O21F 
9220 
0222 
9224 
0228 
O22A 
0228 
022C 
O22E 
O22F 
0231 
9232 
0233 
0234 
0235 
0238 
023A 
023C€ 
O23E 
0240 
0242 
0247 
O24A 
0250 
0251 
0252 
0258 
025A 


285 *TF2 
286 * 
297+* 
288+0TF 2 
289+ 
290+ 
291+ 
292+ 
293+ 
294+ 
295+ 
296+ 
29T+ 
298+ 
299+ 
300+ 
301+ 
307+ 
303+ 
304+ 
305+ 
306+ 
307+ 
308+ 
309+ 
310+ 
311+ 
312+ 
313+ 
314+ 
315+ 
316+ 
3lT+ 
318+ 


RELEAS E-8 
EXTRN FOR TERM LOG ROUTINE. 


CEVICE ID. 

DEFAULT UP ST OF ZERO. 
ATTR BYTE 1. 

ATTR BYTE 2. 

POST OPEN DTF CHAIN PTR. 
DIF CHAIN PTR, 

SYSTEM SAVE AREA. 

AODR OF USFR LOGICAL BUFFFR. 
COMPLETICN CODE. 
OPERATION CODE. 

BSCA WORK AREA. 
INDICATORS. 

ADDR OF POLL/ADNDR LIST. 
POLL/ADCR ID WHEN CTRL STAT. 
RE SERVFOD. 

WRAP LIST COUNT. 
RESERVED. 

RFSERVED. 

DELAY COUNT. 

RECORD LENGTH. 

BLOCK LENGTH. 

ADOR OF START OF I/O AREA. 
ADDR OF FND OF 1/0 AREA. 
BSCA WORK ARFA. 

RVI MASK, 

RVI MASK ADOR. 

BSCA WORK AREA. 

TERM ATTR, 

RESERVED. 

BSCA WORK AREA. 

AODR OF TERM LOG AREA, 


MDD OO O8/2E/77 PAGE 9 


S$OTFB RECL—-300 »BLKL—300, BUFST-BUF2, BUFFNO-B2 END, RCAD-WORK2, 
FTYP-RCV,LINE-1,CONE-F,TYPF-CS,LISTAD-PCLL »ERRLOG-LOG 


OC AL1(00+00+004+0C#+9*08+65) 


BSCA OTF. 

FOU * 

DC xL1*80° 
oC XLL*OO* 
oc XL 1°88" 
oc xt 2'OO* 
oC XL2°'FFFE! 
ce XL4'00° 
0c AL2(WORK2) 
oc xL1*°00* 
0c XL1'OO? 
oC xL2*° O00! 
OC XL1*O0O* 
DC AL2¢(POLL) 
oc XLI‘'F LS 
oc xL1*00! 
OC XLIS FFE 
oc XL1*90° 
DC XL3"00" 
oc XL2*OO R4* 
DC AL 2(300) 
oc AL2(300) 
Oc AL2 (BUF2) 
oc AL 2(B2END) 
pc XL5'00* 
oc XL 3*00° 
oc XL6*00° 
oc AL1(00+00) 
DC XLE'OO* 
oc XL6*00! 
NC AL 2(LOG) 


RELEASE-8 


DEVICE IO. 

DEFAULT UPST OF ZERO. 

ATTR BYTE 1. 

ATTR BYTE 2. 

POST OPEN DTF CHAIN PTR. 
NTF CHAIN PTR, 

SYSTEM SAVE AREA. 

ADDR OF USER LOGICAL BUFFER. 
COMPLETICN CODE. 

OPERATION CODE. 

BSCA WORK ARFA, 
INDECATORS. 

ADOR OF POLL /ANOR LIST. 
POLL/ZADDR ID WHFN CTRL STAT. 
RESERVED. 

DEFAULT WRAP LIST COUNT. 
RESERVED. 

RESERVED. 

DELAY COUNT. 

RECORD LENGTH. 

BLOCK LENGTH. 

ADDR CF START CF 1/0 AREA. 
ADDR OF END OF 1/0 AREA. 
BSCA WORK AREA. 

DEFAULT-NO RVI. 

BSCA WORK AREA, 

TERM ATTR. 

RESERVED. 

BSCA WORK ARFA. 

ADCR CF TERM LCG AREA, 


$2270 


FRR LOC 


0258 
0264 
0268 
9273 
0278 
0283 
0288 
0293 
92 98 
O2A4 
92 AB 
02823 
ABR 
0? C4 
0278 
9203 
9208 
Q2 F3 
92FR 


02 £9 
025 
YPED 
9205 
9300 
0315 
9310 
9325 
9320 
4335 
0239 
9345 
N34N 
0355 
35D 
3365 
0340 
0375 
4370 
03.85 
9380 
0395 
9399 
9345 
9340 
93.45 
03an 
03¢5 
o3cn 
0395 
9300 
03F5 


C8JFCT CONE 


¢9000000000000009 
C€000090000000000 
0900000000000000 
€000000000000000 
0900000000000000 
0000000000000000 
9000000000000000 
0000000000000000 
0000000000000000 
0090000000000000 
0000000000900000 
€009000000000000 
0000000000000000 
0909000000000000 
€900000000000000 
0000000000000000 
99900000000000090 
00900000000090009 
c900 


0900090000000000 
€000000000000000 
09099099000900000 
0900000000000000 
€000000000000000 
9999900090000000 
€000000000000000 
9900 000000000000 
€990000000000000 
€900000000000000 
€900900000090000 
eo0000000N0000C0 
9990009000000000 
€900000000000000 
9000090000000000 
©900000009000000 
C€900000000000000 
09090000009000000 
9099000000090000 
€9090000090000N0 
0900000000000000 
999090000009990000 
€000000000000000 
c¢000000000000000 
©000000000090000 
€090009000000000 
€9900000000000000 
0990000000000000 


“€090000000090000 


€000000000000000 
0900000009090000 
€900000000000000 


MLMP 32270 TNFORMATTON DISPLAY SYSTEM SAMPLE PROGRAM 


ADDR STMT SOURCE STATEMENT 


9258 
O2EC 


02°D 
0442 


320 * 


322 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
323 
3223 
323 
324 
325 
325 
325 
325 
325 
325 
325 
325 
325 
325 
325 
325 
325 
Ars 
325 
325 
325 
325 
325 
425 
325 
325 
425 
325 
325 
325 
325 
325 
325 
325 
325 
425 


BUFL 
BLEND 


BUF 2 
B2END 


EQU 
OC 


FQU 
oC 


* 
XL146°00! 


* 
342xL1"00! 


VER 14s 


MOD 900 


Page of GC21-75734 


Issued 25 November 1977 


By TNL: GN21-5587 


08/26/77 


BUFFER AREAS CATA AREAS HALT/SYSLOG PARAMETERS 


BUFFER FOR CTF 3 


BUFFER FOR DTF 2 


PAGE 


Samples 
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$3270 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


ERR LOC CBYECT CODE ADDR STMT SOURCE STATEMENT VER 14, MOD OC 08/26/77 PAGE 11 
03FD C000000000000000 325 
03F5 0000000000000000 325 
03FD 0000000000000000 325 
0405 0000000000000000 425 
940D 09000:00000090000 325 
0415 €000000000000000 325 
041D C000000C00000000 325 
0425 00000:00000000000 325 
0420 €000000000000000 325 
0435 0000000000000000 325 
0430 C00000000000 325 


326 * COMMAND AND ORDER CHAIN FOR 3270 DISPLAY 
0443 327 WORKIL EQU * 


0443 2TFSCTLIGOC4LOFO 044A 328 oc XL8*27F5C71240C41DF0" 

044B C5C104C5406040 0451 329 pc CL7"NAME -! 

0452 104013 0454 330 oc XL3°1040138 

0455 4040404040404040 0474 331 oc cL32* ¢ ASSIGNED NAME FIELD 

0450 4040404040404040 331 

0465 4040404040404040 331 

0460 4040404040404040 331 

0475 1DFOLICIO41DFO 047B 332 oc XL7*LDFOLICLOSLOFO* 

047C C1C4C4D9C5E2E240 0485 333 oc CLIOtADORESS —- * 

0484 €040 333 

0486 1040 0487 334 oc XL2*1040! 

0488 4040404040404040 0445 335 oc CL30" ¢ ASSIGNED ADORESS FIELD 

0490 4040404040404040 335 

0498 4040404040404040 335 

04A0 404040404040 335 

0446 10F011404D O4AA 336 oc XL5*1DFO0114040! SET END OF FIELD AND BUFFER ADD 
04A4B 337 WORK2 EQU) *® 

04AB 0000000000000000 0506 338 oc 3O0OXL1°00! OPERATOR RESPONSE BUFFER 

0483 CO00000C00000000 338 

04BB €000000000000000 338 

04C3 0000000000000000 338 

04CB 0000000C00000000 338 

04D3 0000000000000000 338 

0408 0000000000000000 338 

04E3 0000000000000000 338 

04E8 0000000000000000 338 

04F3 0000000000000000 338 

04FB 0000000cC00000000 338 

0503 0000000000000000 338 

050B 0000000000000000 338 

0513 0000000cC00000000 338 

0518 €000000000000000 338 

0523 0000000000000000 338 

0528 C000000000000000 338 

0533 C000000000000000 338 

053B 0000000000000000 338 

0543 C000000000000000 338 

054B 0000000000000000 338 

0553 0000000000000000 338 

055B C000090000000000 338 

0563 C000000C00000000 338 

0568 C000000000000000 338 

0573 0000090000000000 338 
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$3270 MLMP 3270 INFORMATION OISPLAY SYSTEM SAMPLE PROGRAM 
ERR LOC OBJECT CCDE ADDR STMT SOURCE STATEMENT VER 14, MOD 00 08/26/77 PAGE 12 
0578 co00000C00000000 338 
0583 0000000000000000 338 
0588 C000000000000000 338 
0593 0000000000000000 338 
0598 0000000000000000 338 
05a3 €000000000000000 338 
05AB C000000000000000 338 
0583 0000000000000000 338 
0588 C€000000000000000 338 
05C3 0000000000000000 338 
05CB 0000000000000000 338 
0503 co0000000 338 
340 * HALT / SYSLOG PARAMETERS FOR PRINTING 
0507 341 RETURN EQU * 
0507 200020 0509 342 oc xt 3*2C0020" 
O5DA C628 050B 343 oc AL 2(RETRN) 
O50C 344 NAME EQu * 
O5NC 200030 O50E 345 oc XL3* 2000308 
O5DF 0688 O5FO0 346 oc AL 2(NBEGIN) 
O561 347 ADOR EQU * 
OSEL 200030 O5F3 348 Oc XL3* 2000308 
O5&4 C6RB O5E5 349 cc AL2(ABEGIN) 
O5F6 350 ERROR EQU * 
05F6 200020 O5F8 351 oc xL3*200020! 
O5F9 C648 OSEA 352 oC AL 2(ERMESS) 
OSEB 353 SMESSG EQU * 
O5EB 200030 O5ED 354 oc xL3*200030! 
OSEE C6EB OSEF 355 oc AL2(SMSG) 
O5FOQ 356 HLMESS EQU * 
O5FO 290020 O5F2 357 oc xL3*2C00020' 
O5F3 0668 O5F4 358 cc AL2(HMESS) 
O5FS 359 LOG EQU * 
O5F5 OO1A O5F6 360 Oc XL2*OO1A' 
O5F7 COOOD00CO0000000 O60E 361 oc XL24'00¢ ERROR LOGGING TABLE 
O5FF CO000000000000000 361 
0607 €900000000000000 361 
362 *ELECT $POLB ID-20,TERMAD-60604040,L EN-4,LAST—WRAP 
363+% GENERATE A POLL/ADOR LIST. RELEASE-7 A 
O60F 364+SELECT EQU * 
O60F 20 O60F 365+ oc XL1*20° 
0610 04 0610 366+ oc AL1(4) LENGTH CF POLL/ADOR. 
0611 60604040 0614 367+ oc XL 4'60604040! POLL/ADOR CHARS. 
0615 00 0615 368+ oc XL1'00o? STATUS. 
0616 FF 0616 369+ oc XLI'FF# END OF LIST. 
370 *OLL $POLB I10-20,TERMAD~4O4O0TFTF,LEN—4,LAST—~WRAP 
371+* GENERATE A POLL/ADOR LIST. RELEASE-7 A 
0617 372+POLL EQU * 
0617 20 0617 373+ oc XL1L*20° 
0618 04 0618 374+ oc AL1(4) LENGTH CF POLL/ADOR. 
0619 40407F7F O61C 375+ oc XL4"GOGO7TFTF! POLL/ADDR CHARS. 
0610 CO 0610 376+ oc XL1*OO! STATUS. 
O61E FF O61E 377+ oc XLI‘FF? END OF LIST. 
378 *ISTL $CKL OTF-OTFL,LAST-Y 
379+* CHECK LIST FOR COMMON WAIT RELEASE-7 8B 
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S3?70 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE PROGRAM 


FRQ £OC CA8gert CONF ADDR STMT SQURCE STATEMENT VER 14. MOD 00 O8/26/77 PAGE 13 
DOIF 29 NOlF 3804LTSTI DC AL 1(04+0+ 32+0+0)} ENTRY STATUS BYTE. 
0620 OLNF 0671 ABlF oc AL 2COTFL) DTF ADDRESS. 

384 *1ST2 $CKL OTF-NTF2,LASTI-Y 
0622 29 J622 384H 1ST2 NC AL 1(04#0+324#0+0) ENTRY STATUS BYTE. 
0623 0210 0624 385+ oc AL2(DTF2) OTF ACORESS. 
0625 O16F°9 0627 387 STATUS DC XL3'O16CD9° 


04N6 388 NFIELD EQU WORK24+43 
94F2 389 AFIFLD FQU WORK 2+4+71 


9001 390 XR EQU 1 
0002 391 XR2 FQU 2 
0003 392 ETX FOU 3 


OOFO 393 ZERO EQU X*FO* 
006D 394 CLEAR EQU x*6D° 
Oo07C 395 FNTFR EQU x" 7D" 
0080 396 RVI EQU x*8o°t 
000S 397 NINE FQU 9 
90012 398 FIGTEN FQU 18 
OUF9 399 NONPRT FQU X*FOP 
0628 400 RETRN ECL * 


9628 SBC2C4C 304074002 0647 GOL RET nC CL32"*$BOCMP COMPLETION CODE IS -* 
9630 £26040 7N 2C5E3C906 401 
0638 £540C306C4C540C9 401 
0640 £240504040404040 401 
0648 40? ERMESS FQU * 
9648 C9ID5E5C1N3C9C440 0667 403 oc CL32"INVALIO KEY HAS BEEN USED? 
0650 C2C55840C8C1 E240 403 
0658 C2C5C 5D540F4F2C5 403 
0660 €440404040404040 403 
9668 404 HMESS EQU * 
0668 CX SC 605400320699 0687 405 OC CL32"CEFE CORE DUMP MAY NOW BE TAKEN? 
0670 €540C4F4D4D74004 405 
0678 CLEB40N5D6E640C2 405 
0680 C540F3C1P2C50N540 405 
0688 406 NBFGIN FOU * 
0688 [5C1D4C54002C5E8 0699 4907 cc CLI8"*NAMF KEYED -! 
0690 €5€4406040404040 407 
0698 4040 407 
06SA 4040404040404040 0687 4OR NEND oc ctL30" * 
O6A2 4040404040404040 408 
064A 4040404040404040 408 
06B2 4040 40404040 408 
0688 409 ABFGIN FQU * 
O6B8 C1C4C4DN9C5SE2F240 06C9 410 oc CLIB"ADORESS KEYED -* 
O6C0 C2C SE 8C5C4406040 410 
96C8 4940 41C 
06CA& 4040404040404040 O6F7 411 AEND oC cL30" * 
06D2 4040404040404040 411 
060A 4040404040404040 411 
O6E2 404040404040 411 
O6F8 00 O6E8 412 SCOUNT DC XLi*co* 
O6F9 C1 O6F9 413 ONE oc XLL‘OL' 
O6FA 39 O6FA 414 S839 le XL1°39° 
O6FB 415 SMSG £OU * 
O6EB E2FACLE3E4E24004 0708 416 oc CL30*STATUS MESSAGE RECEIVED IS -! 


S3270 MLMP 3279 INFORMATION DISPLAY SYSTFM SAMPLE PROGRAM 


FRR LOC CBIFCT CODE ADDR STMT SOURCE STATEMENT VER 14, MOD 00 O8/26/77 PAGE 14 

O6F3 C5E2F 2C1C 7054009 41€ 

O6FB C5C3C5C9F5C5C440 416 

0703 C9E240€C4040 416 

0709 417 STATB EQU * 

NT09 4040494040404040 O71A 418 STAT oc cliss ' 

9711 4040404C640404040 418 

OT19 4040 41e 

471B 090 OT1RB 419 MASK oc XL1'OO* RVI MASK HOLC AREA 


S32 70 MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE P2QGRAM 


ERR LC OBJECT CODE 


9905 
0004 
0002 
9083 
9007 


Oo001 
oo1nN 
9023 
9010 
0008 
OO17 
90004 
0010 
9059 
)90C6 


9000 
0080 
9040 
0002 
9903 
OOF E 
9000 
0080 
9001 
9002 
9002 


9003 
DO0F 


9080 
90C0 
OOFF 
oool 
0002 


0008 
9016 
0010 
0088 
Ooll 
9002 
9001 


ADDR STMT SOURCE STATEMENT 


421 * 
422+ 


4G?4+* 

425+$BIFL A 
42E+8 RIF ST 
427+$BINKQ 
426+$BIRVI 
429+$BECMP 


43alee 
432 4+$BWK 

433+$BWEG 
434+$BWLGD 
435+$BPATV 
426 +$BWRET 
4374$BPILD 
438+$B8PCNC 
439 4+$BPRES 
44.04+$ BWKMC 
44 1#$B2SEC 


4434% 
444+$BPATR 
445 4+$BPACT 
446+$BPEXT 
447+ $BPDTF 
448+$BPNUM 
44 94+$B PEND 
4504$B8PNOP 
451+$BPENA 
4524+$RPRM1 
453+$BLST2 
454+$BLIST 


456 4% 
45 7+$BRCNT 
458+$BH XOF 


460+% 

461+$BDISA 
462+$9ENAB 
462+$BFOX 
464+$BBACL 
465 +$BPRS2 


GE T+% 
4684$BL IN2 
4O69+$BTREQ 
470+$BDAON 
471+$BTOSC 
47Z2+$BTRNQ 
4T3+$BDTF 
474+$B10B 


$0T0OR 
BSCA EQUATES. 


FQUATES IN FOS 
EQU 5 

EQU X*O4! 
EQU x'o2' 
EQU x*g3' 
FQU x'o7t 


FQUATES FOR WORK AREA. 


F QU 1 
EQU 2s 
EQU 35 


FQU x*10° 
EQU xtos! 
EQU XE 
FQU X*O4! 
FQU x'10% 
& QU x*59! 
EQU x* 06" 


VER 14, MOO 00 
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RELEASE-13 


FLAG A. 

FIRST IN FLAG A. 

OFFSET TC TOB OPERATION. 
RCVI OPERATION. 

OFFSET TO TOB COMPLETION. 


WORK AREA REG. 

FLAG 3. 

FLAG BYTE. 

LINE ACTIVE INDICATOR, 

RFT IND. IN FLAG 3. 

OFFSET TO POLL INDICS IN WKA. 
CANCEL PCST INOIC. 

RESET POLL INDIC. 

OFFSET FOR LOA INDICS. 

TWO SEC TIME FOR LDA. 


EQUATES FOR $BCPL AND $BCSW MACROS. 


FQU 0 
FOU x'80? 
EQU X'40!" 
EQU 2 
EQU 3 
EQU X'FE* 
FQU x'oo? 
ECU x'BOt 


EQU 1 
EQU 2 
FQU 2 


EQUATES FOR $RFT MACRO 
ECU 3 
FQU xX* OF! 


GENERAL EQUATES. 
£QU = x*80r 

FQU x'Co! 

FQU XT FEY 

equ 

Fou 2 


FQLATES FOR $CANB MACRC 
EQU x'O8* 

EQU X'16" 

FOU x*10" 

EQU x'88' 

EQu X11 

FQU 2 

EQU 1 


CHANGE LIST ATTRIBUTE OFFSET. 
OFF-ACTIVATE3ON-DE ACTIVATE. 

OF F-EXACT,ON-FIRST N CHARS. 
CHANCE LIST OTF ADDR OFFSET. 
CHANGE LIST OFFSFT TO LENGTH. 
END OF PCLL/ZADDR OR SW ID LIST. 
NO-OP JUMP INSTR. 
ON-ACTIVE;QFF-INACT. LIST ATTR. 
REG EFQU FOR MACRC PARM LIST. 
REG EQU FOR POLL OR ID LIST~ XR2 
REG EQU FOR PTR TO LIST IN XR2. 


COUNT OF NUMBER OF TRANSMISSIONS 
MASK TQ CHECK FOR DECIMAL NUMBER 


ENAPLE BSCA. 

OFSABLE BSCA,. 

EQUATE FOR "FFF, 

USER REGISTER SAVE (REG 1). 
PARAMETER REGISTER SAVE (REG 2). 


LINE-2. 

TRUE AND EQUAL 
0.A. SUPPORTED 

TWO SEC TIME QUT 
TRUE ANC NOT EQUAL 
OTF REG. 

TOB REG. 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT VER 14, MOD 00 08/26/77 PAGE 16 
0001 475+$BONE EQU I OFFSET FOR CONSTANT ONE 
0003 476+$BTRE EQU 3 GFFSET FOR CONSTANT THREE 
478+* OFFSETS FOR BSCA OTF. 
0000 479+$RDDEV EQuU 0 DEVICE ID. 
0001 480+$BDUPS EQU 1 UPST. 
0002 481+$BDATT EQU 2 ATTRIBUTE BYTE 1. 
0080 482+$BCINP EQu x'6o' INPUT FILE. 
0040 483+$BCOUT EQu x*40° OUPUT FILE. 
00CO 484+$BCCNV EQU x*cor CONVERSATICNAL FILE. 
0020 485+$BCITB EQU x*20° ITB MODE. 
0010 486+4+$BCRAN EQU x*10!% TRANSPARENCY. 
0008 487+4$BCGET FOU x*os? GET FILE. 
0004 488+$BCASK EQU X*04! ON-ASCII; OFF-EBCDIC. 
0001 489+$BCASM EQU xtore ASSEM DTF. 
0003 490+4$BDATR EQU 3 ATTRIBUTE BYTE 2. 
0088 491+$BCMCN EQU x'ser MULTIPOINT CONTROL STATION. 
0080 492+$BCMPT EQU x* sor MULTIPOTAT TRIBUTARY. 
0020 493+$BCMAN EQU x*20* MANUAL LINE. 
0010 494+$BCANS ECU xt1o0° ANSWER LINE. 
0008 495+$RCSWI EQU x' ost SWITCHEO LINE. 
0004 496+$BCUSD EQU X*04' FILE USED. 
0002 4974+$BCACT EQuU X'0O2¢ FILE ACTIVE. 
O001L1 4984$RCOPN FQU x*ol? FILE OPENED. 
0005 499+$BDCHN EQU 5 POST OPEN OTF CHAINING PTR, 
0007 500+$BONXT FQU a OTF CHAINIAG® POINTER, 
0009 501+$RDWK1 FQU 93 WORK AREA. 
0008 502+$BDWK2 EQu 11 WORK AREA, — 
9000 503+$BDWKB EQU 13 ADDRESS OF USER*S LOGICAL BUFF. 
QOOE 504+4+$BDCMP EQuU 14 COMPLETION CODE. 
0000 5O05+$BCREC EQuU x"oo* REQUEST ACCEPTED. 
0040 506+$BCONE EQU x*40! NORMAL CCMFLETION. 
0041 5SO7#$BCUER EQU X*41¢ USER ERROR. 
0042 508+$BCEOT EQU X"G2?* ENO OF FILE. 
0043 5094$BCRID EQU X"43" TNVALTD ID. 
0044 510+$BCNEG EQU X"44* NEGATIVE RESPONSE TO POLL/ADOR. 
0045 5114+$BCNON EQU K"45¢ NO RESPCNSE TO POLL/ADOR. 
0046 512+$BCCRP EQuU X'46! CONV REPLY PENDING. 
0047 513+$BCNDT EQU X"47°* NO DATA FOR CONV GET. 
0048 514+$BCOLT EQU x"48" INVALID RFT REQUEST. 
0049 515+$BCNAC FQU x'469" NO ACT ENTRY IN POLL LIST. 
004A 516+$BCIGN EQU X'GA' REQUEST IGNORED. 
004B 517+$BCASC EQU X'4B° INVALID ASCII CHARACTER. 
004C 518+$BCNCN EQU x'4c* NO-CONNECTION. 
0040 519+4$BCCAL EQU x"4D° INVALIO REQUEST. 
004E 520+$B8CLST EQuU X"4E* DELAY COUNT EXCEFDED. 
OO4F 5214+$BCERR EQU X'4Ft PERM ERROR. 
0050 522+$BCTIM EQU x*'s5o% NO RESP FRCM REMOTE DEV. 
0051 523+4+$BCDAT EQU xsi DATA CHECK. 
0052 524+$BCLOS EQU x*52¢ LOST DATA. 
0053 525+$BCCON EQU x53" LOST CONNECTION. 
0054 526+$BCRSP EQU X"54¢ INVALID RESP FROM REMOTE OEV. 
0055 527+$BCADP EQU xUS5.¢ ADAPTER CHECK. 
0056 528+$BCCMP EQU x's6¢ NO CCMPLETIONS IN CHECK LIST. 


$3270 


ERR LOC 


MLMP 3270 INFORMATION DISPLAY SYSTEM SAMPLE FRCGRAM 


CBJECT CCDE 


ADOR 


0057 
0058 
OOOF 
0080 
0081 
0040 
0041 
0042 
0044 
OoLL 
0012 
0001 
0002 
0004 
0008 
0010 
0080 
0014 
0014 
0014 
0015 
0015 
0017 
0017 
0018 
0018 
OOLA 
oo01e 
0010 
OO1F 
0021 
00223 
0025 
0027 
002A 
002D 
OO02E 
0030 
0032 
0033 
0034 
0001 
0002 
0004 
0008 
0010 
0040 
0035 
0037 
0039 
0038 
0030 


OO3F 
0041 
0043 


STMT SOURCE 


529+$BC ACD 
530+$BCRLE 
5314$8D0PC 
532+$BOGET 
533+$BOGBK 
534+$80PUT 
535+$BOPEB 
536+$BOPEF 
537+$BOPEW 
53 8+$BDMRL 
539+$BDADD 
540 +$BCAAL 
541 +$BCPOL 
542 +$BCOFL 
543+$BCRCL 
544+$BC TWO 
545 +$BCSWO 
546+$BD0CH 
547+$BOPSC 
548+$BDLST 
549+$PDDCC 
550+$BDIND 
551+4+$BDRID 
552+$BDCNT 
553+$BDRLN 
554+$BO0LID 
555+$BDSI0O 
556+$BDSLN 
557+$BDOLY 
558+$BDOREL 
559+4+$BDBKL 
560+$BD10B 
561+ $B DBK X 
562+$BDITB 
563+$BDPRM 
564 +4+$BORVI 
565 +$BDNDX 
566+$BDOWKA 
567+$BDINT 
568+$BDDED 
569+$BDATI 
S5704+$BCSEP 
571+$BCSPN 
572+$BCNOW 
573+$BCPUT 
574+$BCRES 
575+$BCPLR 
576+$BDSEP 
577+$BD SBF 
578+$BOSRL 
579+$BDRFT 
580+$BDTSA 
581+* 

582+$RDRLO 
583+$BDRCL 
5 84+$BDARA 


STATEMENT VER 14, 
EQU x*s7' 
EQU x*58! 
EQU 15 
EQU x*80' 
EQU xfazt 
EQU xX"40% 
EQU X'41¢ 
EQU x"42* 
EQU X'4G! 
EQL 17 
EQU 18 
EQu x*olt 
EQU x"02! 
EQU X"04! 
EQU x'oe? 
EQU x*10! 
EQU X*80? 
EQU 20 
EQU 20 
EQU 20 
EQU 21 
EQU 21 
EQU 23 
EQU 23 
EQU 24 
EQU 24 
EQU 26 
EQU 21 
ECU 29 
EQU 31 
EQU 33 
EQu 35 
EQU a7 
EQuU 39 
EQu 42 
EQuU 45 
€QU 46 
EQU 48 
EQU 50 
EQU 51 
EQU 52 
EQU x*o1? 
EQU x'O2' 
EQU x*O4! 
EQu x*o8! 
EQU x*10° 
EQU x*4O0" 
EQu 53 
EQU 55 
EQU 57 
EQU 59 
EQU 61 
ADO ON AREA OF DTF 

EQU 63 
EQU 65 
EQU 67 
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NO ACTIVE DTFS IN CHECK LIST. 
MAXIMUM RECORD LENGTH EXCEEDED. 
OPERATION CODE. 

GET. 

GET-BLOCK. 

PUT. 

PUT END OF BLOCK. 

PUT END CF FILE. 

PUT EQT TO WACK RESPONSE. 
MAXIMUM RECORD LENGTH. 

SPECIAL USE INDICATORS 

ADD ON AREA ON OTF 

POLLING MODULES RESTOENT 
TRUNCATE RECORD INOTCATOR. 
SPAN INDICATOR FOR RECORD LENGTH 
ENO OF BLOCK INDICATOR, 

ID LIST FOR SWICHED LINE 
*ADDRESS OF OTAL NUMBER OR 
*POLL/ADDR CHARACTERS OR 
*ADDRESS OF POLL/ADOR LIST. 
*LENGTH OF DIAL NUMBER OR 
*POLLING/OR ADDRESSING ID. 
*ADDR OF RCV ID OR ID LIST OR 
*LIST COUNT. 

LEN OF RCV ITD OR ENTRY SELECTOR, 
LAST ID OR POLL/ADDR FUNCTION. 
ADDRESS OF SEND ID. 

LENGTH OF SEND TOD. 

DELAY COUNT. 

RECCRO LENGTH. 

BLOCK LENGTH. 

ADDRESS OF IOB IN PROCESS. 
POINT TO DATA IN BSCA BUFFER, 
ITB CHARACTER COUNT. 

RESERVED. 

RVI MASK AND DISPLACEMENT. 
INDEX FOR LINE INITIALIZATION. 
ADORESS QF BSCA WORK AREA, 
OISK ADDR OF LINE INIT MGOULE. 
WORK AREA, 

ATTRIBUTE BYTE FOR TERMINALS. 
RECORD SEPARATOR. 

SPANNING RECORD. 

SPAN IN PRCCESS. 

PUT SPAN FILE. 

SPAN RESTORE NECESSARY. 
POLLING RESIDENT. 

RECORD SEPARATOR. 

SAVE AREA FOR USER BUFFER ADDR. 
SAVE AREA FOR RECORD LENGTH. 
SAVE AREA FOR OLT PARM, 

ADOR CF TERM LCG AREA, 


ADOR OF RESIDENT LO. 


ADDR OF RESIDENT CLOSE. 
AUTO RESPONSE MODULE. 
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$3270 MLMP 2270 INFORMATION CISPLAY SYSTEM SAMPLE PROGRAM 


ERR LOC CBYFCT CODE 


ADDR 


0044 
0046 
0049 


9001 
0002 
0002 
0002 
0008 
0010 
0010 
0090 
0004 
0002 
0001 
9020 
0008 
0000 


STMT SQURCE STATEMERT 
S585+$BDERR FQU €8 
5864#$BOT1A EQU 70 
587+$BD375 EQU 73 
588 * $COMN 
589+ COMMON LABELS 
590+$108 FQU 1 
S9OL+$0TF EQU 2 
592+$LDADR FQU 2 
593+$PARM EQU 2 
S94+4+$ARR EQU 8 
595+$TAR EQU 16 
596+S$TRU EQU x* 108 
59O74$FLS EQU x*'9Qr 
598+$HI EQuU X'O4° 
599+$L0 EQU x*Q2' 
600+$FQ EQu X*OL! 
601+$0OVFB FQU x*20° 
602+$0VED FOU x'o8! 
603 ENC $3270 


TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY 


100 


= 0 


VER 14, MOD 00 08/26/77 PAGE 18 


FOR SYSTEM MACROS 


RETRY CCUNT. 
SAVE ADDRESS OF OLT CS. 
3735 CCP EOT INDIC. 


RELEASE-7 

1OB ACDRESS 

OTF ADDRESS 

LOAD ADDRESS 

PARAMETER LIST ADDRESS 
ADDRESS RECALL REGISTER 
INSTRUCTION ADDRESS REGISTER 
TEST TRUE 

TEST FALSE 

TEST FIGH 

TEST LOW 

TEST EQUAL 

BINARY OVERFLOW 

DECIMAL OVERFLOW 


$3270 
SYMBOL 


$$BMCH 
$$ASLG 
$$BSMS 
$$BSTT 
$ARR 

*BBACL 
$BCAAL 
$ACACD 
$ACACT 
$BCADP 
$BCANS 
$SBCASC 
$BCASK 
$BCASM 
$BCBID 
$BCCAL 
$BCCMP 
SBCCNV 
$BCCON 
$BCCRP 
SRACDAT 
$ PCONE 
$RACEOT 
$BCERR 
$BCGET 
$3C IGN 
$BCINP 
S$ACITB 
$ACLOS 
$eacist 
$BCMAN 
$BCMCN 
$BCMPT 
$BCNAC 
$BCNCN 
$BCNOT 
$BCNEG 
$BCNON 
$8CNOW 
$BCOFL 
$BCOLT 
$ACOPN 
$BCOUT 
SBCPLR 
$BCPOL 
$ACPUT 
$BCRAN 
$BCRCL 
$BCREQ 
$PCRES 
$BCRLE 
$BCRSP 
$BCSEP 
$BC SPN 
sBCSWD 
$BCSWE 


LEN 


ool 
ocl 
001 
och 
001 
ool 
ocl 
oCcl 
ool 
ocl 
oct 
OCcL 
Col 
Ocl 
Ocl 
O01 
ool 
ec 
ocl 
ocl 
och 
ocl 
ocl 
O01 
ool 
ocl 
OCcl 
ocl 
OCcl 
OCcl 
ocl 
ocl 
O01 
ooL 
ocl 
ool 
ocl 
ocL 
ocl 
OOL 
oCcL 
ocl 
ocl 
ocl 
ocl 
oc 
O01 
ocl 
OCcL 
ool 
oct 
och 
ool 
ocl 
ool 
001 


0048 
0004 
oocl 
0042 
0040 
0056 
ooco 
0053 
004E 
0051 
0040 
0042 
OO4F 
0008 
OO4A 
0080 
0020 
00&2 
OO4E 
0020 
0088 
0080 
0049 
004C 
0047 
0044 
0045 
0004 
0004 
0048 
0001 

0040 
0040 
0002 
0008 
0010 
0008 
0000 
0010 
0058 
0054 
0001 
0002 
0080 
0008 


DEEN 


0080 
0251 
0003 
0004 
0594 
046% 
0540 
0529 
0497 
0527 
0494 
O517 
0488 
0489 
9050S 
0519 
0528 
0484 
0525 
0512 
0523 
0506 
0508 
0521 
0487 
0516 
0482 
0485 
0524 
0520 
0493 
0491 
0492 
0515 
0518 
0513 
0510 
o511 
0572 
0542 
0514 
0498 
0483 
0575 
0541 
0573 
0486 
0543 
0505 
0574 
0530 
0526 
0570 
O57. 
0545 
0495 


CRCSS REFERENCE 


REFERENCES 


0078 


0060 


0061 


0063 
0055 
0056 
0088 
0139 


0067 
0107 


0082 


0052 
0053 


0050 


0137 


0119 


0064* 0109 


0071 


0113 


O1L6 


O14) 


0126 


0106 


0059 


0122 


0104 


O112* 0120 


0130 


C123* 


VER 14, 


MOD 00 


08/26/77 
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$3270 
SYMBOL 


SBCTIM 
secTwo 
SACUER 
$BCUSD 
$BOADD 
$ BDAON 
SRDARA 
SPCATR 
$BDATT 
$BDATL 
$BOBKL 
$ADBKX 
$BNCHN 
$BDCMP 


$BDCNT 
$BOOCC 
$BDDCH 
SRAONED 
$RDDEV 
S$BOOLY 
$SADERR 
$BOIND 
S8DINT 
S$BOTOB 
SANISA 
$BDOI TA 
$ROLIO 
SROLST 
$BOMRL 
$ BON DX 
$B80ONXT 
$B8NOPC 
$BDPRM 
$BOPSC 
SRORCL 
SRDOREL 
$BORFT 
$BORID 
SRORLN 
$RBORLO 
SPDRVI 
S$ AOSAF 
$ROSEP 
$B0SI0 
SANSLN 
$BDSRL 
SBOTF 

SBOTSA 
$BDTLA 
$BOUPS 
SBOWKA 
SBOWKA 
$8OWKI 
$ROWK 2 
$80375 
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LEN VALUE 
ocli 0050 
oot 0010 
OCL 0041 
OCcL 0004 
Ocl 0012 
ocl 0010 
Oct 0043 
OcL 0007 
ool 0002 
OCl 0034 
O01 0021 
O01 0025 
ocl 0005 
O01 OO0F 
Ooci OOL? 
Ooci oo15s 
ocl 0014 
001 0032 
Ooo1 0000 
och oOO10 
OCcL 0044 
001 0015 
OclL 0032 
oct 0022 
0C1 0080 
oclL 0027 
oci 0018 
OOL 0014 
oct O0l11 
OCl OO2E 
C01 0007 
OCcl O00F 
OCcl 002A 
Ocl 0014 
OciL 0041 
OOL OO1F 
OOol 0038 
Ocl 0017 
ocl 0018 
OCL O03F 
OC1l 0020 
001 0037 
Oct 0035 
O01 OO1A 
Ocl1 0018 
Oocl 0C39 
001 0002 
Ocl 0030 
OCcL 0046 
ool 0001 
Ocl 0030 
ocl 0O00D 
0O1L 0009 
ocl 0O00B 
ocl 0049 


DEFN 


0522 
0544 
0507 
0496 
0539 
0470 
0584 
0490 
0481 
0565 
0559 
0561 
0499 
0504 


0552 
0549 
0546 
0568 
0479 
O557 
0585 
0550 
0567 
0560 
9461 
0562 
0554 
0548 
0538 
0565 
0500 
0531 
0563 
0547 
05823 
0558 
O57S 
0551 
0553 
0582 
0564 
O5sTT 
0576 
9555 
0556 
o578 
0473 
0580 
0586 
0480 
0566 
0503 
0501 
0502 
O587 
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CROSS REFERENCE 


REFERENCES 


0069 0128 
0052 0106 
0053 0055 
0050 0056 
0130* 0139 
0062 0110 
0058* OL15 


VER 14, MOD O00 O8/26/77 PAGE 20 


O107 0113 


0059* 0067* OC69* CO71* 0082 0088 0104 0116 O1L26* 0128* 
0141 O217 0218 


C121 


011 8* 
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$3270 CRESS REFERENCE 


SYMBOL LEN VALUE NDEFN REFERENCES VER 14, MOD 00 08/26/77 PAGE 21 


SBENAB OCL OOCO 0462 

SAFOX OCL QOFF 0463 

SAHXOF OCL OOOF 0458 

$BICMP 001 0007 0429 0063 0122 

SBIFLA OC1 O00C5 0425 0111 

SBIFST O01 0004 9426 O1L1 

$BIOS OCL O001 0474 

SATORQ ACL 0002 0427 

SBIRVI CCl 0083 0428 

SBLIN2 OCL 0008 0468 

SALIST O01 0002 0454 

$B8LST2 COOL 0002 0453 

$BNGBK O01 0081 0533 0118 

S$BOGET OCL 0080 0532 

SPONE OC1l 0001 0475 

$BOPER OCL 0041 0535 

SPOPEF OCL 0042 0536 

SAOPEW OCL 0044 0537 

$BOPUT 001 0040 0534 0058 0115 

SBPACT O01 0080 0445 

SBPATR OC1 0000 0444 

SAPATV OC1l 0010 0435 

SEPCNC 001 0004 0438 

SBPDTF OCL 0002 0447 

$BPENA OCl 0080 0451 

SPPEND OCL OOFE 0449 

SRPEXT OC1l 0040 0446 

S$PPNOP OCL 0000 0450 

SBPNUM O01 0003 0448 

$BPOLD OCL 0017 0437 

S$BPRES OCL 0010 0439 

SPPRML OCL 0001 0452 

S$BPRS2 OCL O0C2 0465 

SBRCNT O01 0003 0457 

$BTOSC O01 0088 0471 

$BTRE OC1L 0003 0476 

$BTREQ 001 0016 0469 

$BTRNQ OClL OO11 0472 

$AWFG3 O01 0010 0433 

$ AWK OC1l 0001 0432 

$BWKMC OC1l 0059 0440 

SBWLGD OCL 0023 0434 

SBWRFT OC1L 0008 0436 

$B2SEC OC1l 0006 0441 

$OTF OOLl 0002 0591 0032* 0037* 0049* 0050 0052 0953 0055 0056 0058 0059 0062 0067 
0069 0071 0082 0088 0103* 0104 0106 0107 0110 0113 0115 0116 
0118 0821 C126 0128 0130 0139 0141 0217 0218 0239% 

$EQ O01 0001 0600 O1lL7 

$E1003  0C3 004C 0067 0051 

$E1005 0OC3 OOCA 0126 0105 

$£2003 003 0052 0069 0054 

$€2005 0C3 0000 0128 0108 

$£3003 OC3 0058 0071 0057 O00€5 

$E3005 003 O00D6 0130 0117 0124 


SFLS Ocl 0090 0597 

$GTO005 OC3 OOAF 0118 0114 

SHI C01 0004 0598 0057 

SIAR Och 0010 0595 

£108 ocl 0001 0590 0062* 0063 O110* OLL1 0121* 0122 
$LOADR O01 0002 0592 

$LoO OCL 0002 0595 0057 


SOVFR Ocl 0020 0601 

SOVFD 001 0008 0602 

SPARM OC1l 0002 0593 OO77T* 0136* 
$RJ003 OCl 005B 0072 0068 0070 
$RJOO5 O01 0009 0131 0127 0129 
$SVO05 O0C%4 oOO09SC 0112 0109* 
$S1003 0C%& (C042 0064 0061* 
$S1005 O0C4 00CO 0123 0120* 

$TRU Ocl 0010 0596 OO57 0117 
$xT003 OC1l OO5F 0074 0066 
$xT005 OCl OO0DD 0133 0125 
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$3270 CRCSS REFERENCE 

SYMBOL LEN VALUE DEFN REFERENCES VER 14, MOD 00 O8/26/77 PAGE 22 
ABEGIN OCI 06B8 0409 0349 

ANOR COOL O5F1 9347 0205 

AEND 030 O6E7 0411 0204* 


AFTELN OCL O4F2 0389 0204 
BADRET OCL O1LSF 0215 0073 0089 0132 0142 
BUFL OOl 0258 0322 0274 
BUF2 OCl O2FD 0324 0310 
BLEND 146 O2EC 0322 0275 
B2END OCl 0442 0325 O3lt 
CKGOND CCl 0078 0087 0083 
CLEAR O9CL 0069 9394 0143 
CLOSE OCL 0101 0236 0196 


DATA OCl 0175 0194 0148 
NTF I OCL OLDE 0252 0032 0037 0049 0239 0381 
OTF 2 OC1L 0210 0288 0103 0258 0385 


EIGTEN OC1 0012 0398 0174 
ENTER N9C1 0070 0395 0147 
ERMESS OC1l 0648 0402 0352 
ERROR O01 O5F6 0350 9149 
FIX OCL 0003 0392 0195 
HLMESS OCL O5FO 0356 0229 
HMESS OCl 0668 0404 0358 
LIST. Oct O61F 0380 OO7T7 
LIST2 OCl 0622 0384 0136 


LCG OOt O5F5 359 0283 0318 

MASK OCl O71B 0415 0084 0085* 0278 

MORE OC’ OO7TF 0096 0144 0155 C189 0211 
MOVST CCL 0130 0166 0172 

NAME OCL O5DE 0344 0198 

NREGIN OCL 0688 0406 0346 

NEND 030 0687 0408 O197* 

NFIELD OCl 0406 0388 0197 

NINE ocl 0009 0397 0163 


NONPRT OCL OOF9 0399 0176 0219 

NCS839° OC1L O15B 0175 0177 

NOSET OCL O1BC 0222 0220 

ONE OClL O6E9 0413 OL71l 0181 

POLL OCL O€17 0372 0301 

PSTAT OCL O11A 0160 0146 

RESPON OCL OO7F 0098 0086 

RET 032 0647 0401 0216 0216* 0217* 0218* 0219 0221* 
RFETRN OC1l 0628 0400 0343 

RETURN OC1 O5D7 0341 0223 

RVI OCl 0080 0396 0084 0085 

$939 OOL O6EA 0414 0178 0221 

SCOUNT OCL O6€8 0412 0163* O171* O174* 0181* 
SFLECT OCl O60F 02364 0265 

SETDTIS 001 0012 0045 0140 

SETPRT OC1 O150 0175 0182 

SMESSG OCL O5ER 0353 0183 

SMSG OCL O6EB 0415 0355 

STAT 018 O71A 0418 0161* 0162 0162* 

STATB 001 0709 0417 0164 0173 

STATUS 003 0627 0387 0145 

$3270 oct coca 0002 0603 

WORKL O01 0443 9327 0260 

WORK OC1L O4AB 0337 0143 0145 0147 0165 0195 0296 0388 0389 


XRY OCL OO00L 0390 OLE4* 0167 0168 0169 0169* 0173* 0176 O178 O189 0180* 

XR2 OCl 0002 9391 0149* 0165* 0167 0168 O170 O170* 0183* 01S8* 0205* 0223* 0229% 
ZERO OOL OOFO 0393 0161 

TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY = 0 


OL105 t THE CCDE LENGTH OF $3270 IS 1820 DECIMAL. 
OL103 1 TOTAL NUMBER OF LIYARARY SFCTORS REQUIRED IS 9 
NAME-S3270 ,PACK-RIRIRIZUNTT-R1I,ZRETAIN—T pL IBRARY-R yCATEGORY-000 
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BSC DTF 


Displacement Length 
Hex Decimal Label in Bytes 


$BDDEV 


$BDUPS 


$BDATT 


$BDATR 


$BDCHN 
$BDNXT 
$BDWK1 
$BDWK2 


$BDWKB 


Figure 11 (Part 1 of 4). BSC DTF 





Appendix C. Data Areas, Parameter Lists, and Message Formats 


Description 


Device 1D: X‘80’ for BSCA 1 
X‘88' for BSCA 2 


UPSI: U1-U8, customer controlled program switches 


Attribute byte 1 
Value Label Description 


X‘01’ $BCASM Assembler DTF 

X‘04' $BCASK On-—ASCII file 
Off—EBCDIC file 

X'08’' $BCGET GET file 

X'10' $BCRAN _ Transparent mode 

X‘20’ $BCITB ITB mode 

X‘40’ $BCOUT Output file 

X’80' $BCINP Input file 

X‘'CO’ $BCCNV_ Conversational file 


Attribute byte 2 
Value Label Description 


X‘01' $BCOPN File opened 
X‘02' $BCACT File active 

X‘04’ $BCUSD File used 

X‘08’ $BCSWI = Switched line 
X‘'10’ $BCANS_ Answer line 
X‘20' $BCMAN Manual line 
X‘80' $BCMPT _ Tributary station 
X‘88' $BCMCN Control station 


Chaining pointer to post open DTFs 

Chaining pointer to next DTF, preopen or post open 
Work area for MLMP routines 

Work area for MLMP routines 


Address of user’s logical buffer 


Data Areas, Parameter Lists, and Message Formats 105 


106 


Length 
in Bytes Description 


$BDCMP Completion 
Value 
X‘00’ 
X‘40’ 
X’41' 
X42’ 
X‘43’ 
X‘44’ 
X‘45’ 
Xx'46’ 
X'47' 


X‘48' 
x’49' 
X‘4A' 
X‘4B’ 
X‘4C’ 
x‘4D’ 
X‘4E’ 


X‘4F’ 
X‘50’ 
x’51' 
X52’ 


X’53’ 
X‘54’ 
X‘55’ 
‘56’ 
X‘57' 
X58" 


codes 
Label 


$BCREQ 
$BCDNE 
$BCUER 
$BCEOT 
$BCBID 

$BCNEG 
$BCNON 
$BCCRP 
$BCNDT 


$BCOLT 
$BCNAC 
$BCIGN 

$BCASC 
$BCNCN 
$BCCAL 
$BCLST 


$BCERR 
$BCTIM 

$BCDAT 
$BCLOS 


$BCCON 
$BCRSP 
$BCADP 
$BCCMP 
$BCACD 
$BCRLE 


$BDOPC Operation codes 
Label 


Value 
X‘40’ 
x‘41' 
X‘42’ 
X44’ 
X’80’ 
X‘81’ 


$BOPUT 
$BOPEB 
$BOPEF 
$BOPEW 
$BOGET 
$BOGBK 


Description 


Request accepted 

Normal completion 

User error 

End of file 

Invalid 1D 

Negative response to poll/address 

No response to poll/address 
Conversational reply pending 

No data for conversational GET 

(null message received) 

Invalid $RFT (request for online test) 
No active entry in polling list 
Request ignored 

Invalid ASCII character 

No connection 

Invalid request 

Delay count (DLYCT in $DTFB) 
exceeded 

Permanent error 

No response from remote device 

Data check 

Lost data or no RECSEP character within 
2 contiguous blocks of spanned records 
Lost connection or DISC received 
Invalid response received 

Adapter check 

No completion in check list 

No active DTFs in check list 
Maximum record length exceeded 


Description 


PUT 

PUT end-of-block 

PUT end-of-file 

PUT EOT to WACK response 
GET 

GET a block 


$BOMRL Maximum record length 


Figure 11 (Part 2 of 4). BSC DTF 





Displacement Length 
Hex Decimal in Bytes Description 


$BDADD Attribute byte 


Value Label Description 


X'01' $BCAA1 Add on area on DTF 

X’02’ $BCPOL Polling modules resident 

X'04’"  $BCOFL Truncate record indicator 
X‘08’' $BCRCL Span indicator for record length 
X’'10' $BCTWO End of block indicator 

X'20 $BCOPD File has been opened 

X’80' $BCSWD Switched ID list in use 


$BDDCH Address of dial number if this is a switched line, or 
$BDPSC Polling/addressing characters if this is for a tributary station, or 


$BDOLST Address of polling/addressing list if this is for a control station 
$BDDCC Length of dial number if this is for a switched line 


$BDIND Polling/addressing list entry 1D if this is for a control station 


$BDRID Address of receive ID field or address of switched ID list if this 
is for a switched line 

$BDCNT List count (number of times to go through a polling list when 
all responses are negative) if this is for a control station 


$BDRLN Receive ID field length or switched ID list selection characters 


$BDLID Last polling/address 1D or last polling/addressing function 
(X‘FO’ or X'F 1’) 


$BDSID Address of send ID field 
$BDSLN Length of send ID field 
$BDDLY Delay count (DLYCT in $DTFB) 
$BDREL Record length 

$BDBKL Block length 

$BDIOB Address of 1OB in process 
$BDBKX Pointer to data in BSCA buffer 
$BDITB ITB character count 


$BDPRM Reserved 





Figure 11 (Part 3 of 4). BSC DTF 
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Displacement 
Hex 


Length 
Decimal Label in Bytes Description 



















$BDRVI 3 RVI (reverse interrupt request) mask and displacement. 
First byte is mask; next two bytes are address. Address 


must be valid. Mask must be zero if not used. 











$BDNDX 1 Index for line initialization 








$BDWKA 2 Address of BSC work area 








$BDINT 2 Disk address of line initialization module 











$BDDED 1 Work area for MLMP routines 





$BDAT1 1 Terminal attribute byte 












Value Label 





Description 











X'01' $BCSEP Record separator used 
X’02' $BCSPN  Spanned records used 
X'04’ =$BCNOW Spanning in process 
X'08' $BCPUT PUT span file 

X‘10' $BCRES _ Restore after spanning 
X'40' $BCPLR_ Polling resident 
















$BDSEP 1 Record separator character 










$BDSBF 2 Save area for user's logical buffer address 










$BDSRL 2 Save area for record length 










$BDRFT 2 Save area for address of online test parameter list 










$BDTSA 2 Address of terminat statistics logging area 









The following are in the DTF only if core resi- 
dent polling, auto response, or user error retry 
count is present: 











3F 63 $BDRLO 2 Address of $$BSMA 

For resident polling 
41 65 $BDRCL 2 Address of $$BSMC (POLRES—Y 

( in $DTFB) 
43 67 $BDARA 2 Address of $$BSMD __/ 





$BDERR 1 Error retry count 








$BDT1A 2 Disk address of online test module 








$BDEX@ 2 CCP user exit address (CCP only} 











Reserved (This field is present only if 
AUTORS-Y, POLRES—Y, or ERRCT—decdig 
was specified in $D TFB) 






Figure 11 (Part 4 of 4). BSC DTF 
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MLMP 1/O Area 


The MLMP 1/0 area for a file is defined by the BUFST and 
BUFEND operands of $DTFB, or by the BUFNO operand 
of $DTFB. When the file is opened, MLMP formats the 
allocated {/O area into as many IOBs and buffers as the area 
can contain (see Figure 12). 


Note: Conversational files (CONV—Y in $DTFB) are per- 
mitted only one 1OB and buffer. 


10B | Buffer n 





Chain 


Chain 


Figure 12. MLMP Multiple Buffers 


The BSC IOB is 21 bytes long. The 1OB controls the flow 
of data to and from the associated buffer. Each buffer 
contains one block of data as described in $DTFB (see 
Figure 13). 


Acknowledgement 
to Preceding 
bytes) | Block Received 





Transmitted prior | 
to receiving data 


Transmit | 
Buffer { 


Acknowledgement 


Received to Block 
Transmitted 





Received subsequent 
to transmitting data 


Figure 13. Sample MLMP Buffers 





The length of each buffer, including the IOB, is calculated 
as follows: 


@ Conversational mode: 
Buffer length = (record length x 2) + 28 
@ Non-conversational mode: 


Buffer length = (record length x blocking factors) + C 
+ number of characters needed for ITB 


Blocking factor = number of records per block 
C = 44 for ITB transparent PUT; 42 in all other cases 
Number of characters needed for ITB = (blocking 
factor - 1) x ITB count 
ITB count = 0 for non-ITB 
1 for ITB non-transparent 
3 for ITB transparent GET 
5 for ITB transparent PUT 


lf you want multiple buffers, double the computed buffer 
length to have double buffers, triple the computed buffer 
length to have triple buffers, etc. Multiple buffering uses 
a telecommunications line more efficiently than single 
buffering: you can be moving data to or from one buffer 
while data is being transmitted from or to another. 


Note: Aconversational file (CONV—Y in $DTFB) cannot 
have multiple buffers. 


Terminal Statistics Logging Area 


The Terminal Statistics Logging Area is a table in main 
storage used by the terminal statistics logging routine to 
record terminal statistics for multipoint control stations. 
The table is addressed by the ERRLOG operand (required 
if you specify TYPE—CS) of $DTFB. You can use the 
$LOGB macro instruction to allocate the Terminal Statis- 
tics Logging Area. The format of the area is: 


Length of Displacement 
Table in Hex | to Next Avail- Entry 1 Entry 2 Entry n 
able Entry 





Two Bytes, Two Bytes, 
Defined by Initialized to 
User X'00’s by User 
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Each entry in the table is formatted by the terminal statis- 
tics logging routine: 


AES ie Sone 
pen he 
Errors Successes 


pp = Number of polling or addressing characters (1 byte). 
C = Polling or addressing characters, as many as 7. 

Errors = Transmissions containing I/O errors (2 bytes). 
Successes = Successful transmissions (4 bytes). 


Space in main storage must be available for the table. The 
number of bytes required by the table (and entered as the 
length of the table in the first two bytes) is: 4 + p(7 + n) 
where: 


p = Number of unique sets of polling and addressing char- 
acters referenced in this program by this DTF. (If one 
terminal has both a set of polling characters and a set 
of addressing characters, two entries are required for 
the terminal.) 


n = Maximum number of polling or addressing characters 
per entry. 


If you define space in main storage for the Terminal Statis- 
tics Logging Area but you don’t use $LOGB, specify the 
length of the entire table in the first two bytes of the table, 
and initialize the rest of the table to X‘00’. 


Note. \|f the area you define is not large enough to contain 
all the terminal statistics, MLMP will issue the Y6 halt. For 
a complete description of the Y6 halt, see the appropriate 
hait/messages manual listed in the Preface. 


Trace Table 


The trace table contains 1/O information recorded by the 
trace module ($$BSTT). The trace table is 323 bytes long, 
beginning at symbolic address MTBSML and ending at sym- 
bolic address MTBSMM. The format of the trace table is: 


oe [won [ors [oor [Ter 
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Pointer = Address of the first byte of the last entry in the 
table used by Trace (2 bytes). 


WRAP = Status byte: 
X’00’—No more than 20 entries have been written to the 
the table. 
X‘01'—Each entry has been filled at least once, and en- 
tries are now being overlaid, beginning with entry 
entry 1. 


Entry = 16 bytes. The format of each entry is: 


Data 
OEE I tse, 
Control 
02, |,03, [04 | 


Q Byte—From the BSCA SIO instruction initiating the 
event recorded. 


Contro! Code—From the SIO instruction initiating the 
event recorded; 1 byte. 


Sense/Status Bytes: 


Byte Bit Meaning When Set to 1 


1 0 Timeout status. 

a. A receive timeout occurred during a 
receive operation with the adapter 
in the busy state. 

b. An autocall operation was terminated 
by an abandon call and retry sig- 
nal from the autocalling unit, 
(ACU), indicating that a connec- 
tion was not established. 


Data check during receive operation. 

a. A BCC compare check occurred 
(EBCDIC). 

b. A VRC check occurred (ASCI1). 
(Note: Characters having VRC 
checks are distinguished by a high- 
order bit in core storage. These 
characters are never recognized as 
control characters by the BSCA.) 


Adapter check during transmit 
operation. 

a. DBI register parity check. 
b. 1/0 cycle steal overrun. 


Byte 


NNN DN NY 


byte. 


Bit 


ar wWH = Oo 


Meaning When Set to 1 


c. LSR or shift register parity check. 
d. Transmit control register check. 


Adapter check during receive operation. 
a. DBI register parity check. 

b. 1/O cycle steal overrun. 

c. LSR or shift register parity check. 


Invalid ASCII character. (A byte 
fetched from core by an adapter using 
ASCII code contained a 1-bit in the 
high order bit position.) 


Abortive disconnect. indicates BSCA 
on switched network was enabled, 
then the data set became ready, then 
not ready. This indicates the connec- 
tion has been released and causes 
data terminal ready to turn off. 


Disconnect timeout. Indicates dis- 
connect timeout occurred on a switched 
network. Disconnect timeout causes 
data terminal ready to turn off. 

(May not apply to systems using the 
IBM remote job entry program.) 

Note: The program must perform a 
disconnect operation. 


Not assigned. 


Not assigned. 


Data set ready. This indicates that the 
data set is ready to operate and that 
the BSCA has been enabied. 


Data line occupied. This bit is used 

on a switched network when the BSCA 
is equipped with the autocall feature. 
This bit indicates that the data 

receive initial instruction will be re- 
jected. 


. Byte 1 equals leftmost byte; byte 2 equals rightmost 


Data = 
D1—Contents, at the time the I/O operation was started, 
of the byte addressed by the current address regis- 
ter (CAR) and the two bytes that follow. 


D2—Contents, at the time the I/O operation was started, 
of the three bytes preceding the byte addressed by 
the transition address register (TAR). 


D3—Contents, at the time the I/O operation was com- 
pleted, of byte addressed by the TAR and the two 
bytes foliow. 


D4—Contents, at the time the I/O operation was com- 
pleted, of the three bytes preceding the byte address- 
ed by the CAR. 


Note: When a 2-second timeout occurs, D1-D4 are set to 
X'FF’s. When a receive timeout occurs, D3 and D4 are 
set to X‘FF’. When the |/O operation is receive-initial 
(RCV), receive only (RCVO), or autocall, D2 and D3 are 
set to X‘FF’, 


BSC I/O Registers 


Current Address 
Register (CAR) 
points 


Stop Address 
Register (SAR) 
points 











NY 


1 : ! é 
Jf temami | recsoe PX 


Transition Address 
Register (TAR) 
points 





Interrupt 
generated 


Transmission proceeds until CAR equals TAR, when receive 
mode is entered. An interrupt is generated and the opera- 
tion is terminated if CAR equals SAR, if a line turnaround 
sequence is received, or if a timeout occurs. 


For a complete description of the BSCA instruction set 
and the BSCA registers, see the appropriate components 
reference manual listed in the Preface. 


Checklist 


The format of the checklist entries created by the $CKL 
macro instruction is: 
Byte 1= Status byte: 
X‘80’— Skip this entry 
X'40’— This is a printer-keyboard request DTF 
X‘20'— This is the last entry in the checklist 
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X‘10'— Return control to user if no completed 
events (significant in the first check- 
fist entry only) 

X‘04'— Program function key not available 

Bytes 2-3 = Symbolic address of the DTF for this entry 


The format of the checklist is: 


[env [eve | IC] eer 


See also index entry generate a checklist (SCKL). 


Polling/ Addressing List 


The format of the entries generated by the $POLB macro 
instruction is: 


One Entry 





[Dn = Terminal identification, X‘00’ through X‘EF’ 
pp = Number of polling or addressing characters 
Cn = Polling or addressing characters, as many as 7 
ST = Status byte: 


X‘80’—Inactive entry 
X‘00'—Active entry 


END = End byte: 

X‘FE’—Open list 

X‘FF’—Wrap list 
See also index entry generate a polling or addressing list 
($PO:.B). 


Switched ID List 


The format of the entries generated by the $SWIB macro 
instruction is: 


One Entry 
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ESn = Entry selection characters, X‘00’ through X‘EF‘ 
L = Number of station identification characters 
Sin = Station identification characters, as many as 15 
ST = Status byte: 

X’80’—Inactive entry 

X‘00’—Active entry 
END = Endbyte: X’FF’ 


Parameter List for Changing a Polling List or Switched 
ID List 


The format of the parameter list generated by the $CHGB 


macro instruction is: 
DTF 
Type Address N ...Chars... 


Type 


Bit 0: Off—activate selected entries 
On-—deactivate selected entries 


Bit 1: Off—select only those entries whose 
characters match the characters specified 
in the Chars field (below) 

On-—select only those entries whose first 
N characters match the first N characters 
specified in the Chars field (below), 
where N is the number specified in the N 
byte (below) 


DTF 
Address: Address of the DTF whose polling list or 
switched ID list is to be changed. 


N: Hexadecimal number of characters in the 
Chars field (below) to be compared to 
characters in polting list or switched 1D 
list entries. 


Chars: Hexadecimal representation of characters 
to be compared to characters in polling 
list or switched ID list entries. 


See also index entries $8CPL macro instruction and $CHGB 
macro instruction. 


Translate Parameter List Test 
Type 

The translate parameter list is used by the $TRAN macro 

instruction to translate data. See also index entry generate 06 

an interface to the translate routine ($ TRAN). 


Field 
Length Field Description 14 
2 Address of translate table generated by the 
$TRTB macro instruction (see index entry 
$TRTB macro instruction) 
23 
2 FROM field for translation 
2 TO field for translation 
2 Number of bytes to translate 
1 Return Code 
X‘00’—translation complete, no errors 
X‘FF‘'—invalid character detected 24 
Online Test Parameter List 
The format of the online test parameter list required by 
the $RFT macro instruction is: 
25 


Te TTT 


XX = Decimal number specifying test type. Of the follow- 
ing test types, System/3 can only request types 00, 
01, 06, and 14. (When requesting an online test, be 
sure to specify a test the remote terminal can accept.) 26 
System/3 can accept all of the following test types. 
(Types 23 through 34 are only accepted from a 3270.) 


Test 
Type Description 
27 
00 Receive and acknowledge the test message 
the number of times specified in bytes YY. 
The formatted test request must not be 
more than 300 characters long. See index 
entry online test requests. 
01 Transmit the test message the number of 


times specified in bytes YY. The formatted 
test request must not be more than 300 
characters long. See index entry online 
test requests. 


Description 


Transmit 36 alphameric characters, A-Z and 
0-9, the number of times specified in bytes 
YY. Transmit the characters in ASCII 
(ASCII adapter only). 


Transmit 36 alphameric characters, A-Z and 
0-9, the number of times specified in bytes 
YY. Transmit the characters in EBCDIC 
(EBCDIC adapter only). 


3270 basic EBCDIC test message: 


This test checks all alphameric characters at 
a display station or printer. it also checks 
the use of the WCC to sound the audible 
alarm and allows attribute field specifications 
to be checked at a display station. It starts 

a printer, printing only 40 characters to a 
line. 


3270 Model 1 align EBCDIC test pattern: 


This test checks position alignment for the 
480-character display station. It also checks 
the WCC to sound the audible alarm. It 
starts a printer, printing 40 characters to a 
line. 


3270 Model 2 align EBCDIC test pattern: 


This test checks position alignment for the 
1920-character display station. It also checks 
the WCC to sound the audible alarm. It 
starts a printer, printing 80 characters to a 
line. 


3270 orders EBCDIC test message: 


Tests 3270 orders (SF, SBA, etc.), checks 
the WCC to sound the audible alarm, and 
uses display and intensified brightness. It 
starts the printer, printing 64 characters to 
a line. 


3270 EBCDIC universal character set test 
pattern: 


This test uses the erase/write command, 
displaying the universal character set in 
EBCDIC. It checks the WCC to start the 
printer, sounds the audible alarm (on a dis- 
play), and prints 132 characters per line on 
the printer. NL and EM are also tested on 
a printer. Display intensity is used. The 
SF, NL, EM, and IC orders are used. 
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Test 
Type Description 


28 3270 NL/EM EBCDIC test pattern: 


This test is mainly intended to test the end 
of message (EM) order and multiple new 
line (NL) orders on the printer. The WCC 
is checked to start the printer, sound the 
alarm (on a display), and print 132 char- 
acters to a line on the printer. 


29-34 3270 ASCII test patterns: 


These tests correspond to tests 23-28 except 
that transmission is in ASCII. 


Y Y = Decimal number specifying the number of times to 
transmit or receive the test message. 


N = Decimal number specifying the number of addressing 
characters (0-7). N equals 0 except when a tributary 
station requests a test other than type 00. 


Address = Addressing characters to be used, not more than 
7. 


Note: Decimal numbers and addressing characters must 
be given in the code used by the BSCA (EBCDIC or 
ASCil). 


The message type specified determines the buffer space 
required to transmit or receive an online test request. In 
ali cases, block length specified for System/3 (BLKL in 
$DTFB) must be equal to or greater than the test message 
length (LEN in $RFT), whether System/3 is sending or 
receiving the online test request. 


Where m= test message length, including framing char- 
acters (see index entry online test requests), 
and 

n = number of addressing characters, 

the minimum BLKL required to send or receive an online 

test request is: 


Message type 00 
BLKL =9 or m, whichever is greater 
Message type 01 
Point-to-point nonswitched and switched lines: 


BLKL=7+m 
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Multipoint lines: 


Tributary station: 
BLKL=7+mtn 


Control station: 
BLKL = 11+m+2n 


Message types 06 and 14 
BLKL must be greater than or equal to 40. 
Message types 23-34 


BLKL must be greater than or equal to 300. 


Online Test Requests 
Online test requests are written as follows: 
@ Test type 01 


Given the online test parameter list and a test message, 


PARM Operand 


of $RFT 
Online Test Parameter List 


FROM Operand 
of $RFT 










Test 
.. Characters. . . 


For Transparency Only 


MLMP constructs and transmits the following online 
test request: 


300 Bytes Maximum 


Online Test Text 
Parameter List 


. . Characters. .. 





MLMP 


@ All test types other than 01 


Given the online test parameter list, 


PARM Operand 


of $RFT 
Online Test Parameter List 


MLMP constructs and transmits the following online 
test request: 


Online Test Ss E 
Parameter List T T 
x x 





Inserted by Inserted 
MLMP by MLMP 
(test message) 


Note: The parameter list and the test message must both 
be given in the appropriate line code, EBCDIC or ASCII 
(translation may be required—see index entries generate a 
translate parameter list (TRL) and generate an interface 
to the translate routine (STRAN)). 


MLMP Message Formats 


MLMP builds and recognizes the foliowing message 
formats: 


© Non-tTB, non-transparent 





@ Non-ITB, text transparency 
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® ITB, non-transparent 


Ss t 
T Record 1 T Record 2 i 
x B 


@ ITB, text transparency 








Record n-1 Record n 





D Ss E 
Record n-1 L T Record n T oF 
E x x 


Spanned records can be used with or without ITB, and 
can be transparent or non-transparent. The following for- 
mat shows spanned records—-non-ITB, text transparency: 


E 
Record 6 
. B 





RS = Record separator 
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Appendix D. Control Characters and Codes 


EBCDIC 








Main Storage Bit Positions 0, 1,2, 3 





Main Storage 
Bit Positions 








V 


Duplicate Assignment 


Control Characters and Codes 117 


ASCII 


Main Storage Bit Positions 0, 1, 2, 3 


Bit Positions 
HEX Cc 
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Hexadecimal Representations 


values: 


ACKO 
ACK! 
DISC 
DLE 
ENQ 
EOT 
ETB 
ETX 
ITB 
NAK 
RVI 
SOH 
STX 
SYN 
TTD 
WACK 


is determined. 
EBCDIC 


Polling 
Character 


BB 
cc 
DD 
EE 
FF 
GG 
HH 
tI 
JJ 
KK 
LL 
MM 
NN 
00 
PP 
aa 
RR 


ASCII 
BSC control characters are represented by the following Poliing 
Character 
EBCDIC ASCII 
AA 
X‘1070" X'1030' BB 
X'1061' X'1031’ cc 
X'1037" X‘1004’ OD 
X'10' X‘10" EE 
X'2D" X'05’ FF 
x'37° x‘04" GG 
X'26’ x'17" HH 
X‘03' x‘03’ I 
X‘1F’ X'1F’ JJ 
X’3D' X'15" KK 
X'107C’ X‘103C’ LL 
Xx‘01’ Xx‘01' MM 
X‘02’ X‘02’ NN 
x32" X'16" 00 
X'022D' X‘0205' PP 
X‘106B’ X'103B’ aa 
RR 
SS 
Tributary System/3 Polling and Addressing Characters TT 
UU 
Polling and addressing characters must be used in Pairs: vv 
that is, once a polling character is selected, the complemen- Www 
tary addressing character is determined; once an addressing xx 
character is selected, the complementary polling character YY 
22 
Hexadecimal Addressing Hexadecimal 
Representation Character Representation 
C2C2 SS E2E2 
C3C3 TT E3E3 
C4C4 UU E4E4 
C5C5 VV E5E5 
C6C6 Ww E6E6 
C7C7 XX E7E7 
C8C8 YY E8E8 
C9C9 2Z E9E9 
D1D1 11 F1F1 
D2D2 22 F2F2 
D3D3 33 F3F3 
D4D4 44 F4F4 
D5D5 55 FS5F5 
D6D6 66 F6F6 
D7D7 77 F7F7 
D8D8 88 F8F8 
D9D9 99 FOF9 


Hexadecimal Addressing 
Representation Character 


4141 
4242 
4343 
4444 
4545 
4646 
4747 
4848 
4949 
4A4A 
4B4B 
4C4c 
4D4D 
4E4E 
4F4F 
5050 
5151 
5252 
5353 
5454 
5555 
5656 
5757 
5858 
5959 
BA5A 


aa 
bb 
cc 
dd 
ee 
ff 
gg 
hh 
ii 
ii 
kk 
II 
mm 
nn 
oo 
pp 
qq 
tr 
ss 
tt 
uu 
VV 
ww 
XX 


yy 
2z 


Hexadecimal 
Representation 


6161 
6262 
6363 
6464 
6565 
6666 
6767 
6868 
6969 
6A6A 
6B6B 
6C6C 
6D6D 
6EG6E 
6FG6F 
7070 
7171 
7272 
7373 
7474 
7575 
7676 
7777 
7878 
7979 
TATA 
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$Bcsw 
$CANB 


$CHGB 


$SCHK 


$CKL 
(Model 


10) 


$CKL 
(Model 
15) 


$CLOS 


$COMN 


$OTFB 


[name] 


[name] 


{name} 


[name] 


[name] 


[name] 


{name] 


{name} 


$ALOC 


$BCPL 


$BCSW 


$CANB 


$CHGB 


$CHK 


$CKL 


$CLOS 


[DTF—name] 


[PARM—address] 


[PARM—address] 


(OTF—address} 


TYPE—AM/AN/DM/DN ,DTF—address, 
NUM—hex,CHARS—hex 


{CKL—address] 





DTF—address [,SKIP—Y/N] 
[,REQK—Y/N or ,CONS—Y/N] 
LRTN-Y/N] [,LAST—Y/N] 









DTF—address {[,SKIP—Y/N] 
(,REQK—Y/N] 
LRTN—Y/N} (,LAST—Y/N] 







([DTF—address} 


| | $COMN | | 


RECL—decdig,BLKL—decdig, 
RCAD~—address,-FTYP—-RCV/TSM 
[,BUFST-—address, BUF END—address] 
[,BUFNO—decdig]} 

LCODE-—E/A] L,LINE—1/2] 
[,UP—binary/0] [,CHN-name} 
L.CONV—Y/N] LITB-Y/N] 
LTRANSP—Y/N] 

(,R VIADR—address,R VIMSK—hex] 
{,DL YCT—decdig] 

[, TY PE~PP/MP/CS/AC/MC/AA/MA] 
L.TERMAD—hex] LAUTORS—Y/N]} 
[,LISTAD—address,ERRLOG—address] 
L.POLRES—Y/N] 

[,LIMIT—decdig] 

[,DIAL—address, DIALCT—decdig] 
[,.RCVID—address, RCVCT —decdig/ 
SWLIST—Y/N] 
(,SNDID—address,SNDCT—decdig] 
L.SPAN—Y/N] 

LRECSEP—hex] LERRCT—decdig] 
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Appendix E. Macro Instruction Summary 


Allocates files. 


Changes entries in 
polling tists. 


Changes entries in 
switched !D tists. 


Cancels an initial 
GET request. 


Generates a parameter 


list for changing 


polling or switched 


ID lists. 


Checks for i/O 
completion. 


Creates entries in 
the check list. 


Creates entries in 
the check list. 


Closes files. 


Generates 
common labelis. 


Define BSC DTFs. 


Approximate 
Number of 
Instructions 
Generated, 


Excluding 
Mnotes 





43 


25 


(6 lines) 


(3 lines) 


(3 lines) 


3 


(14 lines) 


(31 lines) 


Approximate 
Number of 
Bytes 
Required, 
Excluding 
Mnotes 
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82 


6-12 


62 


Macro Instruction Summary = 121 


[name] $GETB 


[name] $LOGB 


[OTF—address] (,REJECT—address] 
LOPC-N/BLK] 


NUM—decdig, LEN—decdig 


| fname] | SOPEN | [DTF—name] | 


[name] $POLB 


[name] SSNAP 


[name] $swiB 


[name] $TRAN 


[name] $TRL 


[name] $TRTB 


tO—hex, TERMAD—hex, 
LEN—decdig 
{[,_LAST—N/OPEN/WRAP] 


[DTF—address] 
[,REJECT—address} 
{,OPC—N/ EOB/EOF/EOW]) 


PARM-—address [,F ROM—address] 
[,LEN—decdig] [,OTF—address] 
[,REJECT—address) 
TYPE-00/01/06/14, 


NUM-—decdig, LEN—decdig 
(.CODE-E/A] [,TERMAD—hex) 


ID—hex,STAR T—address, 
END—address 


SELECT—hex,STATIO—hex, 
LEN—decdig [,LAST—Y/N] 


[TRL—address] 


TO—address,F ROM—address, 
LEN—decdig, TR T—address 


[CODE-E/A} [,HEX-hex]} 


Figure 14 (Part 2 of 2). Macro Instruction Summary Chart 
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Approximate 
Number of 
Instructions 
Generated, 
Excluding 


Generates 
displacements and 
labels for BSC 
DTFs. 


(137 lines) 


Instructs Model 10 
BSC to receive 
(GET) data. 


Allocates the 
Terminal Statistics 
Logging Area. 


(5 tines) 


Opens files. 


Creates entries in 
polling and 
addressing lists. 


Instructs 
Mode! 10 BSC 
to transmit 
(PUT) data. 


Instructs 
Model 10 BSC 
to perform an 
online test. 


Generates the online 
test parameter list. 


(5-6 lines) 


Dumps main storage. | (4 lines) 


Creates entries ina 
switched ID list. 


(3-6 fines) 


Transiates data. 8 


Creates a 
translate list. 


(13 lines) 


If CODE—A, 
12 lines; if 
CODE-E, 
20 tines. 


Generates a translate 
table. 


Approximate 
Number of 
Bytes 
Required, 
Excluding 


Depends on the 
number of termi- 
nals and number 
of polling/addres- 
sing characters. 

9 


4 (plus 
poli/addressing 
characters) 


If CODE-—A, 
130 bytes; if 
CODE--E, 
258 bytes. 
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accepting an online test request 51,53 
activating a polling list entry 19,20 
address (control stations) 31 
addressing considerations 32 
addressing/polling (see polling/addressing) 
addressing/polling characters (see polling/addressing characters) 
addressing/poiling list (see polling/addressing list) 
allocate BSC files ($ALOC) 16 
allocate the terminal statistics fogging area (§¢LOGB) 21 
ASCII 

control characters and codes 118, 119 

line code 6,12 

polling/addressing characters 119 
autoanswer_ 6, 13 
autocall 6,13 


Banking Terminal System, 2972 (see MLMP, device-dependent 
considerations) 
binary data 57 
binary synchronous communications (see BSC) 
Binary Synchronous Communications Adapter (see BSCA) 
binary synchronous data 1,5 
block length 
considerations 16 
for conversational files 12 
specifying 11 
blocking and deblocking data 
and move mode 27 
specifying in $GETB 28 
specifying in $PUTB 28 
BSC (binary synchronous communications) 1 
BSC counters 50 
BSC DTF 
format 105 
generation ofby $DTFB 9,10 
in MLMP overview 4 
label generation 9 
BSC I/O registers 1411 
BSC line conventions and conversational replies 34, 36 
(see also control characters and codes) 
BSC MLMP networks, examples of 1 
BSCA (Binary Synchronous Communications Adapter) 
in MLMP overview 4 
line code 6,12 
requirement 1,57 
BSCA SIO sense/status bytes 110 
BSCA terminal log area 50 
buffers 
and move mode 27 
calculating length of 109, 110, 114 
defining 11 
in MLMP 1/O area 109 
in MLMP overview 4 
sample 109 
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calculating buffer length 109,110, 114 
cancel a GET request ($CANB) 29 
chained DTFs 

allocating 17 

closing 39 

opening 17 

specifying 12 
change a polling list ($BCPL) 20 
change a switched ID list ($BCSW) 23 
check for |/O completion ($CHK) 29 
check routine 29 
check routine completion codes 45, 47 


checklist 
(see also $CHK) 
format 111 


generation of by $CKL 17 
close BSC files ($CLOS) 39 
closing a conversational file 34 
completion code 45 
completion message 30 
considerations 
SOTFB 15 
addressing 32 
closing files 34, 39 
device-dependent (see MLMP, device-dependent considerations) 
FDP/convert 77 
MLMP programming 57 
online test 71 
trace 54 
3270 online test 71 
console DTF 18, 30 
control characters and codes 
ASCII 118,119 
EBCDIC 117,119 
tributary System/3 polling and addressing characters 119 
control mode 32 
conventions for describing System/3 macro instructions 7 
conversational files 
and move mode 27 
closing 34 
specifying 12 
conversational replies 28, 29, 33 


data 
binary 57 
binary synchronous 1,5 
Packed decimal 57 
translation (see data translation) 
data areas, parameter lists, and message formats 105 
data transfer 
initiating 27 
Preparing for 9 
terminating 39 
data translation 5,9 
(see also $TRAN macro instructions; $TRL macro instruction) 
data-link control characters and codes 117 
deactivating a polling list entry 20 
define the file for BSC (SDTFB) 10 
delay count 12 
description of System/3 macro instructions 7 
device-dependent considerations (see MLMP, device-dependent 
considerations) 
diagnostics and diagnostic aids 40 
diat number, specifying for autocall 15 
display adapter 76 
DPF (dual programming feature) 1, 30 
DTF (see BSC DTF) 
(see also $CKL macro instruction) 
dual programming feature (DPF) 1, 30 
dump routine 6 
(see also $$SNAP macro instruction) 


EBCDIC 
control characters and codes 117,119 
line code 6,12 
polling/addressing characters 119 
transparency 6 
end -of-biock 
for conversational files 33, 34 
for 3270 data 70 
specifying in $PUTB 28 
end-of-file 
and terminating data transfer 39 
for conversational files 34 
for 3270 data 69 
specifying in $PUTB 29 
EOT in response to ACK or WACK 29 
error recording 5, 40 
error recovery 5, 45 
error retry count 15 
error statistics 50 
establishing line connection 27 
examples 
continuation fines 8 
macro instructions 77 
MLMP BSC networks 1 
MLMP buffers 109 
3270 program 87 
EXTERNs 
$$BSMS 9,57 
$$BSTT 54 
MTBSML 54 
MTBSMM 54 


FDP (form descriptor program) (see FDP/convert) 
FDP/convert 

considerations 78 

description 4,77 

expanded 96-column to consecutive 5444 disk 78 

80-column to consecutive 5444 disk 78 

80-column to 96-column 77 
fixed length records (see record type, fixed length) 
form descriptor convert routine ($$BSCN) (see FDP/convert) 
form descriptor program (FDP) (see FDP/convert) 
functional contro! and data flow of MLMP 4 
functions of MLMP 6,9 


generate a checklist ($CKL) 17 

generate a parameter list for changing a polling list or a 
switched ID list ($CHGB) 21 

generate a polling/addressing list ($POLB) 19 

generate a switched ID list ($SWIB) 22 

generate a translate parameter list (STRL) 24 

generate a translate table ($TRTB) 24 

generate an interface to the translate routine (STRAN) 25 

generate an online test parameter list (SRFTL) 26 

generate BSC DTF displacements and labels ($DTOB) 10 

generate common equates (SCOMN) 10 

generation of a user MLMP object program 2 

GET request (see $GETB macro instruction) 


halts 45 
how to request an online test froma 3270 71 


{/O area, MLMP 109 
1/O buffers 
defining T1 
in MLMP 1/O area 109 
in MLMP overview 4 
1/O registers, BSC 111 
t/O requests completion code 45, 46 
1/0 routines, MLMP 4 
{BM System/3 macros feature 2,57 
IBM System/3 overtay linkage editor 2,57 
including trace 
assembler 54 
RPG Il 54 
Information Display System 3270 (see MLMP, device-dependent 
considerations) 
(see also 3270 sample program) 
initial GET 29, 32 
initializing MLTERFIL 50 
initiating data transfer 27 
intermediate block checking (ITB) 5, 12 
intermixing of terminals, restriction 4 
108 
defining 11 
in MLMP 1/O area 109 
in MLMP overview 4 
issue a GET request (SGETB) 27 
issue a PUT request ($PUTB) 28 
STB (intermediate block checking) 6, 12 
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leading graphics 6 
line 
code, specifying 12 
supported by MLMP 5 
type, specifying 13 
1or2 specifying 12 
local display adapter 76 
logical buffer 
in MLMP overview 4 
specifying 11 


machine requirements, MLMP 57 
macro instructions 
$ALOC (see $ALOC macro instruction) 
$BCPL. (see $BCPL macro instruction) 
$BCSW (see $BCSW macro instruction) 
$CANB (see $CANB macro instruction) 
$CHGB (see $CHGB macro instruction) 
$CHK (see $CHK macro instruction) 
$CKL (see $CKL macro instruction) 
$CLOS (see $CLOS macro instruction) 
$COMN (see $COMN macro instruction) 
$DTFB (see $DTFB macro instruction) 
$DTOB (see $DTOB macro instruction) 
$GETB (see $GETB macro instruction) 
$LOGB (see $LOGB macro instruction) 
$OPEN (see $OPEN macro instruction) 
$POLB (see $POLB macro instruction) 
$PUTB (see $PUTB macro instruction) 
$RFT (see $RFT macro instruction) 
$RFTL (see $RFTL macro instruction) 
$SNAP (see $SNAP macro instruction) 
$SWIB (see $SWIB macro instruction) 
$TRAN (see $TRAN macro instruction) 
$TRL (see $TRL macro instruction) 
$TRTB (see $TRTB macro instruction) 
description of System/3 7 
examples 79 
in MLMP overview 4 
summary chart 121 
macro processor 2,57 
Manual answer 6 
manual call 6 
message formats 
completion 30 
MLMP 115 
online test 114 
message formats, data areas, and parameter tists 105 
MLMP (Multiline/Multipoint) 
BSC networks, examples of 1 
buffers (see buffers) 
device-dependent considerations 
IBM 2972 Banking Terminal System 61 
IBM 3270 Information Display System 61 
IBM 3735 Programmable Terminal 77 
diagnostics and diagnostic aids 41 
error recordings 41 
error recovery 45 
error statistics 50 
examples (see examples) 
functional contro! and data flow 4 
functions 6,9 
i/O area 109 
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MLMP (Multiline/Muitipoint) (continued) 
1/O routines 1,4 
introduction 14 
lines supported 5 
macro instructions {see macro instructions) 
message formats 115 
mnotes 41 
networks, exampies of 1 
object program, generation of 2 
programming 
considerations 57 
exampies (see examples) 
initiating data transfer 27 
Preparing for data transfer 9 
terminating data transfer 39 
requirements and considerations 57 
statistics 50 
telecommunications lines supported 5 
terminal statistics 50 
terminal supported 5 
MLTA (Multiple Line Terminal Adapter) 6 
MLTERFIL 50 
(see also terminal statistics logging area) 
mnotes 41 
move mode 27 
MTBSML, EXTRN 54 
MTBSMN, EXTRN 54 
Multiline/Multipoint (see MLMP) 
multiple buffers 109 
Multiple Line Terminal Adapter (MLTA) 6 


networds, examples of MLMP BSC 1 
no completion in checklist, specifying returnon 18 
nonconversational files and move mode 27 


abject program, generation of MLMP 2 
OLT (see online test} 
ontine test (OLT} 
accepting a request for 51,53 
calculating buffer space 114 
considerations 53 
discussion 51 
froma 3270 71 
message format 115 
Parameter list 113 
requesting 51 
requests 114 
results 53 
test types 51,114 
open BSC files ($OPEN) 17 
open polling list, specifying an 20 
opening a DTF conditionally 12 
overiay linkage editor 
and trace 54 
in generating an MLMP object program 2 
requirement 57 
overview of MLMP 4 


packed decimal data 57 
Parameter fist 
for changing a polling list or switched ID list 112 
online test 113 
translate 113 
Parameter lists, message formats, and data areas 105 
poll (controt stations) 31 
polling/address list 
changinga 20, 21 
format 112 
generationof 19 
identifyinga 14 
specifying entry IDs fora 19 
polling/addressing 
and 3270 59 
initiate 31 
respond to 32 
polling/addressing characters 
ASCII 119 
EBCDIC 119 
specifying 19 
preparing for data transfer 9 
program level 1 
programmable terminal, 3735 (see MLMP, device-dependent 
considerations) 
programming considerations, MLMP 57 
programming requirements, MLMP 57 
PUT request (see $PUTB macro instruction) 


RCVI (receive-initial) 32 
reading from and writing to a remote 3270 60 
receive 
(see also $GETB macro instruction} 
a block of dataatatime 28 
file, specifyinga 11 
interspersed with transmit only 33 
to a conversational file 33 
with transmittal of a conversational repiy 36 
receive-initial (RCVI) 32 
recognizing an online test request 51,53 
(see also online test) 
record length 
considerations 15 
specifying 11 
record separator 15,116 
record type 
fixed length 15 
spanned 
considerations 15 
format 116 
specifying 15 
supported 5 
variable length 5,15 


reject routine 
for $GETB 27 
for $PUTB 28 
for $RFT 51 
REQ key 17,30 
requesting an online test 51,53 
requirements and considerations, MLMP 57 
respond to polling or addressing (tributary stations} 32 
return on no completion in checklist, specifying 18 
reverse interrupt (RVI) 
and addressing 31 
and transmit/receive interspersed 37, 38 
specifying 12 
supported 6 
RPG II 
and trace 54 
consideration 57 
RVI (see reverse interrupt) 


$SSNAP dump main storage ($SNAP) 55 
samples (see examples) 
sense/status bytes, BSCASIO 110 
skip entries in checklist 17, 30 
spanned record (see record type, spanned) 
station identification sequence, specifying 15 
statistics, MLMP BSC 50 
status/sense messages, 3270 71 
storage requirements, MLMP 57 
switched ID list 
changinga 21,23 
format 112 
generation of 22 
identifyinga 15 
System/3 macro instructions 2,7 
System/3 translate routine 25, 26 
translate tables 25 
table 
trace 54,110 
translate 24 
techniques for initiating data transfer 
address (control station) 31 
conversational reply 33 
poll (tributary stations) 31 
receive interspersed with transmit 37 
receive only 33 
respond to polling or addressing (tributary stations) 32 
transmit interspersed with receive 38 
transmit only 33 
telecommunications lines supported 5 
terminal statistics logging area 
and $LOGB 21 
and MLTERFIL 50 
defining 14,21 
format 109 
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terminals supported 5 
terminating BSC files 
receive files 39 
transmit files 39 
terminating data transfer 39 
text mode 32 
trace 
considerations 55 
description 54 
including 54 
table 54,110 
translate parameter list 113 
translate routines, System/3 25, 26 
translate tables, System/3 25 
translation data 6,9 
(see also $TRAN macro instruction; $TRL macro 
instruction; $TRTB macro instruction) 
transmit 
(see also $PUTB macro instruction) 
file, specifyinga 11 
from a conversational file 33 
interspersed with receive 38 
only 33 
with reception of a conversational reply 35 
transparency 6,12 
tributary, System/3 polling and addressing characters 
ASCII 119 
EBCDIC 119 


variable length record (see record type, variable fength) 


wrapped polling list 
and $CANB 29 
and $DTFB 14 
specifying 20 


2972 Banking Terminal System (see MLMP, device- 
dependent considerations) 

3270 Information Display System (see MLMP, device- 
dependent considerations) 

(see also 3270 sample program) 

3270 online test considerations 71 

3270 sample program 87 

3270 status/sense messages 71 

3735 prograrnmable terminal (see MLMP, device- 
dependent considerations) 
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